home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 46.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 34 38 3a 35 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:48:51 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 67 67 2f |s-20.3/l|isp/egg/|
|000000a0| 65 67 67 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |egg.el.;|;; emacs|
|000000b0| 20 76 65 72 73 69 6f 6e | 20 32 30 2e 34 20 22 45 | version| 20.4 "E|
|000000c0| 6d 65 72 61 6c 64 22 20 | 58 45 6d 61 63 73 20 20 |merald" |XEmacs |
|000000d0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000e0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 32 35 |omp vers|ion 2.25|
|000000f0| 20 58 45 6d 61 63 73 3b | 20 32 32 2d 4d 61 72 2d | XEmacs;| 22-Mar-|
|00000100| 39 36 2e 0a 3b 3b 3b 20 | 6f 70 74 69 6d 69 7a 61 |96..;;; |optimiza|
|00000110| 74 69 6f 6e 20 69 73 20 | 6f 6e 2e 0a 3b 3b 3b 20 |tion is |on..;;; |
|00000120| 74 68 69 73 20 66 69 6c | 65 20 75 73 65 73 20 6f |this fil|e uses o|
|00000130| 70 63 6f 64 65 73 20 77 | 68 69 63 68 20 64 6f 20 |pcodes w|hich do |
|00000140| 6e 6f 74 20 65 78 69 73 | 74 20 69 6e 20 45 6d 61 |not exis|t in Ema|
|00000150| 63 73 20 31 39 2e 0a 0a | 28 69 66 20 28 61 6e 64 |cs 19...|(if (and|
|00000160| 20 28 62 6f 75 6e 64 70 | 20 27 65 6d 61 63 73 2d | (boundp| 'emacs-|
|00000170| 76 65 72 73 69 6f 6e 29 | 0a 09 20 28 6f 72 20 28 |version)|.. (or (|
|00000180| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 70 6f |and (bou|ndp 'epo|
|00000190| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 20 65 70 6f |ch::vers|ion) epo|
|000001a0| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 0a 09 20 20 |ch::vers|ion).. |
|000001b0| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 | (stri|ng-lessp|
|000001c0| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|000001d0| 32 30 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |20"))). | (erro|
|000001e0| 72 20 22 60 65 67 67 2e | 65 6c 27 20 77 61 73 20 |r "`egg.|el' was |
|000001f0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000200| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000210| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000220| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000230| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000240| 74 20 6e 69 6c 29 29 0a | 0a 28 72 65 71 75 69 72 |t nil)).|.(requir|
|00000250| 65 20 27 6d 75 6c 65 29 | 0a 3b 3b 3b 23 23 23 63 |e 'mule)|.;;;###c|
|00000260| 6f 64 69 6e 67 20 73 79 | 73 74 65 6d 3a 20 65 73 |oding sy|stem: es|
|00000270| 63 61 70 65 2d 71 75 6f | 74 65 64 0a 0a 28 64 65 |cape-quo|ted..(de|
|00000280| 66 76 61 72 20 65 67 67 | 2d 76 65 72 73 69 6f 6e |fvar egg|-version|
|00000290| 20 22 33 2e 31 30 20 78 | 65 6d 61 63 73 22 20 22 | "3.10 x|emacs" "|
|000002a0| 5c 0a 56 65 72 73 69 6f | 6e 20 6e 75 6d 62 65 72 |\.Versio|n number|
|000002b0| 20 6f 66 20 74 68 69 73 | 20 76 65 72 73 69 6f 6e | of this| version|
|000002c0| 20 6f 66 20 45 67 67 2e | 20 22 29 0a 28 64 65 66 | of Egg.| ").(def|
|000002d0| 61 6c 69 61 73 20 27 65 | 67 67 2d 72 65 61 64 2d |alias 'e|gg-read-|
|000002e0| 65 76 65 6e 74 20 23 5b | 6e 69 6c 20 22 c0 20 c1 |event #[|nil ". .|
|000002f0| 89 1a 1b 1b 1c c5 0c 21 | 88 c6 0c 21 12 c7 0c 21 |.......!|...!...!|
|00000300| ab c0 c8 0c c9 5c 22 ac | ba ca 0c 21 cb 61 ab 89 |.....\".|...!.a..|
|00000310| cc 0c 21 ae 81 5c 6e 13 | aa ae ca 0c 21 cd 61 ab |..!..\n.|....!.a.|
|00000320| 9d ce 5c 6e 21 ab 92 cf | d0 5c 6e 21 d1 5a 21 ae |..\n!...|.\n!.Z!.|
|00000330| 8c cf d0 5c 6e 21 d2 5a | 21 aa 83 cc 0c 21 13 aa |...\n!.Z|!....!..|
|00000340| 8a 0c 43 16 13 aa 84 0c | 43 16 13 0b 2b 87 22 20 |..C.....|C...+." |
|00000350| 5b 6d 61 6b 65 2d 65 76 | 65 6e 74 20 6e 69 6c 20 |[make-ev|ent nil |
|00000360| 6b 65 79 20 63 68 20 65 | 76 65 6e 74 20 6e 65 78 |key ch e|vent nex|
|00000370| 74 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 20 |t-comman|d-event |
|00000380| 65 76 65 6e 74 2d 6b 65 | 79 20 6b 65 79 2d 70 72 |event-ke|y key-pr|
|00000390| 65 73 73 2d 65 76 65 6e | 74 2d 70 20 65 76 65 6e |ess-even|t-p even|
|000003a0| 74 2d 6d 61 74 63 68 65 | 73 2d 6b 65 79 2d 73 70 |t-matche|s-key-sp|
|000003b0| 65 63 69 66 69 65 72 2d | 70 20 62 61 63 6b 73 70 |ecifier-|p backsp|
|000003c0| 61 63 65 20 65 76 65 6e | 74 2d 6d 6f 64 69 66 69 |ace even|t-modifi|
|000003d0| 65 72 2d 62 69 74 73 20 | 30 20 65 76 65 6e 74 2d |er-bits |0 event-|
|000003e0| 74 6f 2d 63 68 61 72 61 | 63 74 65 72 20 31 20 63 |to-chara|cter 1 c|
|000003f0| 68 61 72 61 63 74 65 72 | 70 20 69 6e 74 2d 74 6f |haracter|p int-to|
|00000400| 2d 63 68 61 72 20 63 68 | 61 72 2d 74 6f 2d 69 6e |-char ch|ar-to-in|
|00000410| 74 20 39 36 20 36 34 20 | 75 6e 72 65 61 64 2d 63 |t 96 64 |unread-c|
|00000420| 6f 6d 6d 61 6e 64 2d 65 | 76 65 6e 74 73 5d 20 33 |ommand-e|vents] 3|
|00000430| 20 22 5c 0a 46 53 46 6d | 61 63 73 20 65 76 65 6e | "\.FSFm|acs even|
|00000440| 74 20 65 6d 75 6c 61 74 | 6f 72 20 74 68 61 74 20 |t emulat|or that |
|00000450| 73 68 6f 76 65 73 20 6e | 6f 6e 20 6b 65 79 20 65 |shoves n|on key e|
|00000460| 76 65 6e 74 73 20 69 6e | 74 6f 0a 75 6e 72 65 61 |vents in|to.unrea|
|00000470| 64 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 73 |d-comman|d-events|
|00000480| 20 74 6f 20 66 61 63 69 | 6c 69 74 61 74 65 20 74 | to faci|litate t|
|00000490| 72 61 6e 73 6c 61 74 69 | 6f 6e 20 66 72 6f 6d 20 |ranslati|on from |
|000004a0| 4d 75 6c 65 2d 32 2e 33 | 22 5d 29 0a 28 64 65 66 |Mule-2.3|"]).(def|
|000004b0| 61 6c 69 61 73 20 27 63 | 6f 65 72 63 65 2d 73 74 |alias 'c|oerce-st|
|000004c0| 72 69 6e 67 20 23 5b 28 | 66 6f 72 6d 29 20 22 08 |ring #[(|form) ".|
|000004d0| 3b ab 82 08 87 c1 08 21 | ad 83 c2 08 21 87 22 20 |;......!|....!." |
|000004e0| 5b 66 6f 72 6d 20 63 68 | 61 72 61 63 74 65 72 70 |[form ch|aracterp|
|000004f0| 20 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 5d | char-to|-string]|
|00000500| 20 32 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 2]).(de|falias '|
|00000510| 63 6f 65 72 63 65 2d 69 | 6e 74 65 72 6e 61 6c 2d |coerce-i|nternal-|
|00000520| 73 74 72 69 6e 67 20 23 | 5b 28 66 6f 72 6d 29 20 |string #|[(form) |
|00000530| 22 08 3b ab 8c 08 47 c1 | 55 ab 84 c2 08 21 87 08 |".;...G.|U....!..|
|00000540| 87 c3 08 21 ad 81 08 87 | 22 20 5b 66 6f 72 6d 20 |...!....|" [form |
|00000550| 31 20 73 74 72 69 6e 67 | 2d 74 6f 2d 63 68 61 72 |1 string|-to-char|
|00000560| 20 63 68 61 72 61 63 74 | 65 72 70 5d 20 32 5d 29 | charact|erp] 2])|
|00000570| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00000580| c3 23 88 c0 c4 c2 c3 23 | 88 c0 c5 c2 c3 23 88 c0 |.#.....#|.....#..|
|00000590| c6 c2 c3 23 87 22 20 5b | 70 75 74 20 65 67 67 3a |...#." [|put egg:|
|000005a0| 2a 69 6e 70 75 74 2d 6d | 6f 64 65 2a 20 70 65 72 |*input-m|ode* per|
|000005b0| 6d 61 6e 65 6e 74 2d 6c | 6f 63 61 6c 20 74 20 65 |manent-l|ocal t e|
|000005c0| 67 67 3a 2a 6d 6f 64 65 | 2d 6f 6e 2a 20 69 74 73 |gg:*mode|-on* its|
|000005d0| 3a 2a 63 75 72 72 65 6e | 74 2d 6d 61 70 2a 20 6d |:*curren|t-map* m|
|000005e0| 6f 64 65 2d 6c 69 6e 65 | 2d 65 67 67 2d 6d 6f 64 |ode-line|-egg-mod|
|000005f0| 65 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |e] 4).(d|efalias |
|00000600| 27 6a 69 73 2d 63 6f 64 | 65 2d 69 6e 70 75 74 20 |'jis-cod|e-input |
|00000610| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 69 6e |#[nil ".|.!." [in|
|00000620| 73 65 72 74 2d 6a 69 73 | 2d 63 6f 64 65 2d 66 72 |sert-jis|-code-fr|
|00000630| 6f 6d 2d 6d 69 6e 69 62 | 75 66 66 65 72 20 22 4a |om-minib|uffer "J|
|00000640| 49 53 20 1b 24 28 42 34 | 41 3b 7a 25 33 21 3c 25 |IS .$(B4|A;z%3!<%|
|00000650| 49 1b 28 42 28 31 36 1b | 24 28 42 3f 4a 3f 74 49 |I.(B(16.|$(B?J?tI|
|00000660| 3d 38 3d 1b 28 42 29 3a | 20 22 5d 20 32 20 6e 69 |=8=.(B):| "] 2 ni|
|00000670| 6c 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |l nil]).|(defalia|
|00000680| 73 20 27 69 6e 73 65 72 | 74 2d 6a 69 73 2d 63 6f |s 'inser|t-jis-co|
|00000690| 64 65 2d 66 72 6f 6d 2d | 6d 69 6e 69 62 75 66 66 |de-from-|minibuff|
|000006a0| 65 72 20 23 5b 28 70 72 | 6f 6d 70 74 29 20 22 c0 |er #[(pr|ompt) ".|
|000006b0| 09 21 c2 1b 1b 1c c5 0c | 21 89 13 ac 8a c6 20 88 |.!......|!..... .|
|000006c0| c0 09 0c 5c 22 14 aa 6f | c7 c8 c9 21 0b 40 0b 41 |...\"..o|...!.@.A|
|000006d0| 23 63 2a 87 22 20 5b 72 | 65 61 64 2d 66 72 6f 6d |#c*." [r|ead-from|
|000006e0| 2d 6d 69 6e 69 62 75 66 | 66 65 72 20 70 72 6f 6d |-minibuf|fer prom|
|000006f0| 70 74 20 6e 69 6c 20 76 | 61 6c 20 73 74 72 20 72 |pt nil v|al str r|
|00000700| 65 61 64 2d 6a 69 73 2d | 63 6f 64 65 2d 66 72 6f |ead-jis-|code-fro|
|00000710| 6d 2d 73 74 72 69 6e 67 | 20 62 65 65 70 20 6d 61 |m-string| beep ma|
|00000720| 6b 65 2d 63 68 61 72 20 | 66 69 6e 64 2d 63 68 61 |ke-char |find-cha|
|00000730| 72 73 65 74 20 6a 61 70 | 61 6e 65 73 65 2d 6a 69 |rset jap|anese-ji|
|00000740| 73 78 30 32 30 38 5d 20 | 34 5d 29 0a 28 64 65 66 |sx0208] |4]).(def|
|00000750| 61 6c 69 61 73 20 27 68 | 65 78 61 64 69 67 69 74 |alias 'h|exadigit|
|00000760| 2d 76 61 6c 75 65 20 23 | 5b 28 63 68 29 20 22 c0 |-value #|[(ch) ".|
|00000770| 09 58 ab 89 09 c2 58 ab | 84 09 c0 5a 87 c3 09 58 |.X....X.|...Z...X|
|00000780| ab 8b 09 c4 58 ab 86 09 | c3 5a c5 5c 5c 87 c6 09 |....X...|.Z.\\...|
|00000790| 58 ad 8a 09 c7 58 ad 85 | 09 c6 5a c5 5c 5c 87 22 |X....X..|..Z.\\."|
|000007a0| 20 5b 3f 30 20 63 68 20 | 3f 39 20 3f 61 20 3f 66 | [?0 ch |?9 ?a ?f|
|000007b0| 20 31 30 20 3f 41 20 3f | 46 5d 20 32 5d 29 0a 28 | 10 ?A ?|F] 2]).(|
|000007c0| 64 65 66 61 6c 69 61 73 | 20 27 72 65 61 64 2d 6a |defalias| 'read-j|
|000007d0| 69 73 2d 63 6f 64 65 2d | 66 72 6f 6d 2d 73 74 72 |is-code-|from-str|
|000007e0| 69 6e 67 20 23 5b 28 73 | 74 72 29 20 22 08 47 c1 |ing #[(s|tr) ".G.|
|000007f0| 55 ad bb c2 c3 08 c4 48 | 21 58 ad b2 c3 08 c5 48 |U......H|!X.....H|
|00000800| 21 ad ab c2 c3 08 c2 48 | 21 58 ad a2 c3 08 c6 48 |!......H|!X.....H|
|00000810| 21 ad 9b c3 08 c4 48 21 | c7 5f c3 08 c5 48 21 5c |!.....H!|._...H!\|
|00000820| 5c c3 08 c2 48 21 c7 5f | c3 08 c6 48 21 5c 5c 42 |\...H!._|...H!\\B|
|00000830| 87 22 20 5b 73 74 72 20 | 34 20 32 20 68 65 78 61 |." [str |4 2 hexa|
|00000840| 64 69 67 69 74 2d 76 61 | 6c 75 65 20 30 20 31 20 |digit-va|lue 0 1 |
|00000850| 33 20 31 36 5d 20 35 5d | 29 0a 28 62 79 74 65 2d |3 16] 5]|).(byte-|
|00000860| 63 6f 64 65 20 22 c0 11 | c1 5c 6e 42 12 c1 87 22 |code "..|.\nB..."|
|00000870| 20 5b 22 20 2a 4e 6f 74 | 69 66 69 63 61 74 69 6f | [" *Not|ificatio|
|00000880| 6e 2a 20 22 20 2a 6e 6f | 74 69 66 69 63 61 74 69 |n* " *no|tificati|
|00000890| 6f 6e 2d 77 69 6e 64 6f | 77 2a 20 63 75 72 72 65 |on-windo|w* curre|
|000008a0| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|000008b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6f 74 69 |.(defali|as 'noti|
|000008c0| 66 79 20 23 5b 28 73 74 | 72 20 26 72 65 73 74 20 |fy #[(st|r &rest |
|000008d0| 61 72 67 73 29 20 22 c0 | c1 c2 0b 0c 42 5c 22 21 |args) ".|....B\"!|
|000008e0| 87 22 20 5b 6e 6f 74 69 | 66 79 2d 69 6e 74 65 72 |." [noti|fy-inter|
|000008f0| 6e 61 6c 20 61 70 70 6c | 79 20 66 6f 72 6d 61 74 |nal appl|y format|
|00000900| 20 73 74 72 20 61 72 67 | 73 5d 20 35 5d 29 0a 28 | str arg|s] 5]).(|
|00000910| 64 65 66 61 6c 69 61 73 | 20 27 6e 6f 74 69 66 79 |defalias| 'notify|
|00000920| 2d 69 6e 74 65 72 6e 61 | 6c 20 23 5b 28 6d 65 73 |-interna|l #[(mes|
|00000930| 73 61 67 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6e |sage &op|tional n|
|00000940| 6f 65 72 61 73 65 29 20 | 22 8a c0 09 21 89 1a 71 |oerase) |"...!..q|
|00000950| 88 64 62 88 c3 14 c5 20 | c6 c7 4f c8 1b 0e 09 ca |.db.... |..O.....|
|00000960| b1 04 88 cb 14 cc 5c 6e | 21 88 c9 cd 1b 0e 09 5c |......\n|!......\|
|00000970| 22 88 1b 0e 1b 0e 3f ad | 87 cf d0 21 88 c9 d1 21 |".....?.|...!...!|
|00000980| 2a 87 22 20 5b 67 65 74 | 2d 62 75 66 66 65 72 2d |*." [get|-buffer-|
|00000990| 63 72 65 61 74 65 20 2a | 6e 6f 74 69 66 69 63 61 |create *|notifica|
|000009a0| 74 69 6f 6e 2d 77 69 6e | 64 6f 77 2a 20 6e 6f 74 |tion-win|dow* not|
|000009b0| 69 66 79 2d 62 75 66 66 | 20 6e 69 6c 20 62 75 66 |ify-buff| nil buf|
|000009c0| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 63 75 |fer-read|-only cu|
|000009d0| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 73 74 72 69 6e |rrent-ti|me-strin|
|000009e0| 67 20 34 20 31 39 20 22 | 3a 3a 20 22 20 6d 65 73 |g 4 19 "|:: " mes|
|000009f0| 73 61 67 65 20 3f 5c 6e | 20 74 20 62 75 72 79 2d |sage ?\n| t bury-|
|00000a00| 62 75 66 66 65 72 20 22 | 25 73 22 20 6e 6f 65 72 |buffer "|%s" noer|
|00000a10| 61 73 65 20 73 6c 65 65 | 70 2d 66 6f 72 20 31 20 |ase slee|p-for 1 |
|00000a20| 22 22 5d 20 35 5d 29 0a | 28 64 65 66 61 6c 69 61 |""] 5]).|(defalia|
|00000a30| 73 20 27 6e 6f 74 69 66 | 79 2d 79 65 73 2d 6f 72 |s 'notif|y-yes-or|
|00000a40| 2d 6e 6f 2d 70 20 23 5b | 28 73 74 72 20 26 72 65 |-no-p #[|(str &re|
|00000a50| 73 74 20 61 72 67 73 29 | 20 22 c0 c1 c2 0b 0c 42 |st args)| ".....B|
|00000a60| 5c 22 21 87 22 20 5b 6e | 6f 74 69 66 79 2d 79 65 |\"!." [n|otify-ye|
|00000a70| 73 2d 6f 72 2d 6e 6f 2d | 70 2d 69 6e 74 65 72 6e |s-or-no-|p-intern|
|00000a80| 61 6c 20 61 70 70 6c 79 | 20 66 6f 72 6d 61 74 20 |al apply| format |
|00000a90| 73 74 72 20 61 72 67 73 | 5d 20 35 5d 29 0a 28 64 |str args|] 5]).(d|
|00000aa0| 65 66 61 6c 69 61 73 20 | 27 6e 6f 74 69 66 79 2d |efalias |'notify-|
|00000ab0| 79 65 73 2d 6f 72 2d 6e | 6f 2d 70 2d 69 6e 74 65 |yes-or-n|o-p-inte|
|00000ac0| 72 6e 61 6c 20 23 5b 28 | 6d 65 73 73 61 67 65 29 |rnal #[(|message)|
|00000ad0| 20 22 c0 8b 87 22 20 5b | 28 28 62 79 74 65 2d 63 | "..." [|((byte-c|
|00000ae0| 6f 64 65 20 22 c0 09 21 | 88 64 62 88 c2 13 c4 20 |ode "..!|.db.... |
|00000af0| c5 c6 4f c7 1b 0e 08 c9 | b1 04 88 ca 13 cb cc 21 |..O.....|.......!|
|00000b00| 87 22 20 5b 70 6f 70 2d | 74 6f 2d 62 75 66 66 65 |." [pop-|to-buffe|
|00000b10| 72 20 2a 6e 6f 74 69 66 | 69 63 61 74 69 6f 6e 2d |r *notif|ication-|
|00000b20| 77 69 6e 64 6f 77 2a 20 | 6e 69 6c 20 62 75 66 66 |window* |nil buff|
|00000b30| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 63 75 72 |er-read-|only cur|
|00000b40| 72 65 6e 74 2d 74 69 6d | 65 2d 73 74 72 69 6e 67 |rent-tim|e-string|
|00000b50| 20 34 20 31 39 20 22 3a | 3a 20 22 20 6d 65 73 73 | 4 19 ":|: " mess|
|00000b60| 61 67 65 20 3f 5c 6e 20 | 74 20 79 65 73 2d 6f 72 |age ?\n |t yes-or|
|00000b70| 2d 6e 6f 2d 70 20 22 1b | 24 28 42 24 24 24 24 24 |-no-p ".|$(B$$$$$|
|00000b80| 47 24 39 24 2b 21 29 1b | 28 42 22 5d 20 34 29 29 |G$9$+!).|(B"] 4))|
|00000b90| 5d 20 31 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 1]).(d|efalias |
|00000ba0| 27 6e 6f 74 69 66 79 2d | 79 2d 6f 72 2d 6e 2d 70 |'notify-|y-or-n-p|
|00000bb0| 20 23 5b 28 73 74 72 20 | 26 72 65 73 74 20 61 72 | #[(str |&rest ar|
|00000bc0| 67 73 29 20 22 c0 c1 c2 | 0b 0c 42 5c 22 21 87 22 |gs) "...|..B\"!."|
|00000bd0| 20 5b 6e 6f 74 69 66 79 | 2d 79 2d 6f 72 2d 6e 2d | [notify|-y-or-n-|
|00000be0| 70 2d 69 6e 74 65 72 6e | 61 6c 20 61 70 70 6c 79 |p-intern|al apply|
|00000bf0| 20 66 6f 72 6d 61 74 20 | 73 74 72 20 61 72 67 73 | format |str args|
|00000c00| 5d 20 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 5]).(d|efalias |
|00000c10| 27 6e 6f 74 69 66 79 2d | 79 2d 6f 72 2d 6e 2d 70 |'notify-|y-or-n-p|
|00000c20| 2d 69 6e 74 65 72 6e 61 | 6c 20 23 5b 28 6d 65 73 |-interna|l #[(mes|
|00000c30| 73 61 67 65 29 20 22 c0 | 8b 87 22 20 5b 28 28 62 |sage) ".|.." [((b|
|00000c40| 79 74 65 2d 63 6f 64 65 | 20 22 c0 09 21 88 64 62 |yte-code| "..!.db|
|00000c50| 88 c2 13 c4 20 c5 c6 4f | c7 1b 0e 08 c9 b1 04 88 |.... ..O|........|
|00000c60| ca 13 cb cc 21 87 22 20 | 5b 70 6f 70 2d 74 6f 2d |....!." |[pop-to-|
|00000c70| 62 75 66 66 65 72 20 2a | 6e 6f 74 69 66 69 63 61 |buffer *|notifica|
|00000c80| 74 69 6f 6e 2d 77 69 6e | 64 6f 77 2a 20 6e 69 6c |tion-win|dow* nil|
|00000c90| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00000ca0| 79 20 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 73 |y curren|t-time-s|
|00000cb0| 74 72 69 6e 67 20 34 20 | 31 39 20 22 3a 3a 20 22 |tring 4 |19 ":: "|
|00000cc0| 20 6d 65 73 73 61 67 65 | 20 3f 5c 6e 20 74 20 79 | message| ?\n t y|
|00000cd0| 2d 6f 72 2d 6e 2d 70 20 | 22 1b 24 28 42 24 24 24 |-or-n-p |".$(B$$$|
|00000ce0| 24 24 47 24 39 24 2b 21 | 29 1b 28 42 22 5d 20 34 |$$G$9$+!|).(B"] 4|
|00000cf0| 29 29 5d 20 31 5d 29 0a | 28 64 65 66 61 6c 69 61 |))] 1]).|(defalia|
|00000d00| 73 20 27 73 65 6c 65 63 | 74 2d 6e 6f 74 69 66 69 |s 'selec|t-notifi|
|00000d10| 63 61 74 69 6f 6e 20 23 | 5b 6e 69 6c 20 22 c0 09 |cation #|[nil "..|
|00000d20| 21 88 c2 89 13 87 22 20 | 5b 70 6f 70 2d 74 6f 2d |!....." |[pop-to-|
|00000d30| 62 75 66 66 65 72 20 2a | 6e 6f 74 69 66 69 63 61 |buffer *|notifica|
|00000d40| 74 69 6f 6e 2d 77 69 6e | 64 6f 77 2a 20 74 20 62 |tion-win|dow* t b|
|00000d50| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 5d |uffer-re|ad-only]|
|00000d60| 20 32 20 6e 69 6c 20 6e | 69 6c 5d 29 0a 28 62 79 | 2 nil n|il]).(by|
|00000d70| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 82 c2 11 |te-code |"..!....|
|00000d80| c1 0b 42 13 c0 c4 21 ac | 82 c2 14 c4 0b 42 13 c0 |..B...!.|.....B..|
|00000d90| c5 21 ac 82 c2 15 c5 0b | 42 13 c0 c6 21 ac 83 c2 |.!......|B...!...|
|00000da0| 16 06 c6 0b 42 13 c0 c7 | 21 ac 83 c2 16 07 c7 0b |....B...|!.......|
|00000db0| 42 13 c0 c8 21 ac 83 c2 | 16 08 c8 0b 42 13 c0 c9 |B...!...|....B...|
|00000dc0| 21 ac 83 c2 16 09 c9 0b | 42 13 c0 ca 21 ac 84 cb |!.......|B...!...|
|00000dd0| 20 16 5c 6e ca 0b 42 13 | cc 1b 0e 5c 6e cd ce 23 | .\n..B.|...\n..#|
|00000de0| 88 cc 1b 0e 5c 6e cf d0 | 23 88 cc 1b 0e 5c 6e d1 |....\n..|#....\n.|
|00000df0| d2 23 88 cc 1b 0e 5c 6e | d3 d4 23 88 cc 1b 0e 5c |.#....\n|..#....\|
|00000e00| 6e d5 d6 23 88 cc 1b 0e | 5c 6e d7 d8 23 88 cc 1b |n..#....|\n..#...|
|00000e10| 0e 5c 6e d9 da 23 88 cc | 1b 0e 5c 6e db dc 23 88 |.\n..#..|..\n..#.|
|00000e20| cc 1b 0e 5c 6e dd de 23 | 88 cc 1b 0e 5c 6e df de |...\n..#|....\n..|
|00000e30| 23 88 cc 1b 0e 5c 6e e0 | d4 23 88 cc 1b 0e 5c 6e |#....\n.|.#....\n|
|00000e40| e1 d2 23 88 cc 1b 0e 5c | 6e e2 da 23 88 cc 1b 0e |..#....\|n..#....|
|00000e50| 5c 6e e3 d6 23 87 22 20 | 5b 62 6f 75 6e 64 70 20 |\n..#." |[boundp |
|00000e60| 6d 65 6e 75 3a 2a 73 65 | 6c 65 63 74 2d 69 74 65 |menu:*se|lect-ite|
|00000e70| 6d 73 2a 20 6e 69 6c 20 | 63 75 72 72 65 6e 74 2d |ms* nil |current-|
|00000e80| 6c 6f 61 64 2d 6c 69 73 | 74 20 6d 65 6e 75 3a 2a |load-lis|t menu:*|
|00000e90| 73 65 6c 65 63 74 2d 6d | 65 6e 75 73 2a 20 6d 65 |select-m|enus* me|
|00000ea0| 6e 75 3a 2a 73 65 6c 65 | 63 74 2d 69 74 65 6d 2d |nu:*sele|ct-item-|
|00000eb0| 6e 6f 2a 20 6d 65 6e 75 | 3a 2a 73 65 6c 65 63 74 |no* menu|:*select|
|00000ec0| 2d 6d 65 6e 75 2d 6e 6f | 2a 20 6d 65 6e 75 3a 2a |-menu-no|* menu:*|
|00000ed0| 73 65 6c 65 63 74 2d 6d | 65 6e 75 2d 73 74 61 63 |select-m|enu-stac|
|00000ee0| 6b 2a 20 6d 65 6e 75 3a | 2a 73 65 6c 65 63 74 2d |k* menu:|*select-|
|00000ef0| 73 74 61 72 74 2a 20 6d | 65 6e 75 3a 2a 73 65 6c |start* m|enu:*sel|
|00000f00| 65 63 74 2d 70 6f 73 69 | 74 69 6f 6e 73 2a 20 6d |ect-posi|tions* m|
|00000f10| 65 6e 75 2d 6d 6f 64 65 | 2d 6d 61 70 20 6d 61 6b |enu-mode|-map mak|
|00000f20| 65 2d 6b 65 79 6d 61 70 | 20 64 65 66 69 6e 65 2d |e-keymap| define-|
|00000f30| 6b 65 79 20 22 01 22 20 | 6d 65 6e 75 3a 62 65 67 |key "." |menu:beg|
|00000f40| 69 6e 69 6e 67 2d 6f 66 | 2d 6d 65 6e 75 20 22 05 |ining-of|-menu ".|
|00000f50| 22 20 6d 65 6e 75 3a 65 | 6e 64 2d 6f 66 2d 6d 65 |" menu:e|nd-of-me|
|00000f60| 6e 75 20 22 06 22 20 6d | 65 6e 75 3a 6e 65 78 74 |nu "." m|enu:next|
|00000f70| 2d 69 74 65 6d 20 22 02 | 22 20 6d 65 6e 75 3a 70 |-item ".|" menu:p|
|00000f80| 72 65 76 69 6f 75 73 2d | 69 74 65 6d 20 22 1b 0e |revious-|item "..|
|00000f90| 22 20 6d 65 6e 75 3a 6e | 65 78 74 2d 69 74 65 6d |" menu:n|ext-item|
|00000fa0| 2d 6f 6c 64 20 22 07 22 | 20 6d 65 6e 75 3a 71 75 |-old "."| menu:qu|
|00000fb0| 69 74 20 22 10 22 20 6d | 65 6e 75 3a 70 72 65 76 |it "." m|enu:prev|
|00000fc0| 69 6f 75 73 2d 69 74 65 | 6d 2d 6f 6c 64 20 22 0c |ious-ite|m-old ".|
|00000fd0| 22 20 6d 65 6e 75 3a 72 | 65 66 72 65 73 68 20 22 |" menu:r|efresh "|
|00000fe0| 0d 22 20 6d 65 6e 75 3a | 73 65 6c 65 63 74 20 5b |." menu:|select [|
|00000ff0| 72 65 74 75 72 6e 5d 20 | 5b 6c 65 66 74 5d 20 5b |return] |[left] [|
|00001000| 72 69 67 68 74 5d 20 5b | 75 70 5d 20 5b 64 6f 77 |right] [|up] [dow|
|00001010| 6e 5d 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |n]] 4).(|defalias|
|00001020| 20 27 6d 65 6e 75 3a 73 | 65 6c 65 63 74 2d 66 72 | 'menu:s|elect-fr|
|00001030| 6f 6d 2d 6d 65 6e 75 20 | 23 5b 28 6d 65 6e 75 20 |om-menu |#[(menu |
|00001040| 26 6f 70 74 69 6f 6e 61 | 6c 20 69 6e 69 74 69 61 |&optiona|l initia|
|00001050| 6c 20 70 6f 73 69 74 69 | 6f 6e 29 20 22 c0 c1 c2 |l positi|on) "...|
|00001060| c3 21 c4 c5 20 21 c6 1e | 07 1e 08 1e 09 1e 5c 6e |.!.. !..|......\n|
|00001070| 1e 0b cc 8b 2d 87 22 20 | 5b 30 20 74 20 67 65 74 |....-." |[0 t get|
|00001080| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 22 |-buffer-|create "|
|00001090| 20 2a 6d 65 6e 75 2a 22 | 20 77 69 6e 64 6f 77 2d | *menu*"| window-|
|000010a0| 62 75 66 66 65 72 20 6d | 69 6e 69 62 75 66 66 65 |buffer m|inibuffe|
|000010b0| 72 2d 77 69 6e 64 6f 77 | 20 6e 69 6c 20 76 61 6c |r-window| nil val|
|000010c0| 75 65 20 6d 69 6e 69 62 | 75 66 66 65 72 20 6d 65 |ue minib|uffer me|
|000010d0| 6e 75 62 75 66 66 65 72 | 20 69 6e 68 69 62 69 74 |nubuffer| inhibit|
|000010e0| 2d 71 75 69 74 20 65 63 | 68 6f 2d 6b 65 79 73 74 |-quit ec|ho-keyst|
|000010f0| 72 6f 6b 65 73 20 28 28 | 62 79 74 65 2d 63 6f 64 |rokes ((|byte-cod|
|00001100| 65 20 22 c0 c1 20 5c 6e | 5c 22 88 c3 c1 20 21 88 |e ".. \n|\"... !.|
|00001110| 5c 6e 71 88 65 64 7c 88 | 0c 41 40 63 88 c5 c6 20 |\nq.ed|.|.A@c... |
|00001120| 21 1d c7 1e 08 c7 16 09 | c7 16 5c 6e 60 16 0b cc |!.......|..\n`...|
|00001130| cd 0c 38 0d ce 0c 41 40 | 21 5a 5c 22 16 1b 0f 1b |..8...A@|!Z\"....|
|00001140| 0e 10 a7 ab 97 d1 1b 0e | 10 58 ab 91 1b 0e 10 cd |........|.X......|
|00001150| 0c 38 47 57 ab 88 d2 1b | 0e 10 21 88 82 ff 00 1b |.8GW....|..!.....|
|00001160| 0e 10 3c 83 f8 00 1b 0e | 10 40 83 f8 00 d1 1b 0e |..<.....|.@......|
|00001170| 10 40 58 83 f8 00 1b 0e | 10 40 cd 0c 38 47 57 83 |.@X.....|.@..8GW.|
|00001180| f8 00 d2 1b 0e 10 40 21 | 88 1b 0e 10 41 89 16 10 |......@!|....A...|
|00001190| ab f4 d3 1b 0e 14 1b 0e | 15 38 21 89 16 16 ab e8 |........|.8!.....|
|000011a0| 1b 0e 16 3c ab e3 1b 0e | 16 40 c4 61 ab dc d7 20 |...<....|.@.a... |
|000011b0| 1b 0e 5c 6e 42 16 5c 6e | 1b 0e 15 1b 0e 1b 0f 1b |..\nB.\n|........|
|000011c0| 0e 14 1b 0e 18 0c af 05 | 1b 0e 09 42 16 09 1b 0e |........|...B....|
|000011d0| 16 14 65 64 7c 88 0c 41 | 40 63 88 60 16 0b cc cd |..ed|..A|@c.`....|
|000011e0| 0c 38 0d ce 0c 41 40 21 | 5a 5c 22 16 1b 0f 1b 0e |.8...A@!|Z\".....|
|000011f0| 10 40 a7 ab 99 d1 1b 0e | 10 40 58 ab 92 1b 0e 10 |.@......|.@X.....|
|00001200| 40 cd 0c 38 47 57 ab 88 | d2 1b 0e 10 40 21 88 aa |@..8GW..|....@!..|
|00001210| 0d d1 16 14 d9 d1 21 88 | aa 04 c7 16 16 aa 87 d1 |......!.|........|
|00001220| 16 14 d9 d1 21 88 1b 0e | 08 84 c5 02 da 20 1e 1b |....!...|..... ..|
|00001230| 1b c7 16 1c 1b 0e 1b 1b | dd 61 ab 87 de d1 21 88 |........|.a....!.|
|00001240| 82 c1 02 1b 0e 1b 1b df | 61 ab 8a de 1b 0e 15 47 |........|a......G|
|00001250| 53 21 88 82 c1 02 1b 0e | 1b 1b e0 61 ac 86 1b 0e |S!......|...a....|
|00001260| 1b 1b e1 61 ab 86 e2 20 | 88 82 c1 02 1b 0e 1b 1b |...a... |........|
|00001270| e3 61 ac 86 1b 0e 1b 1b | e4 61 ab 86 e5 20 88 82 |.a......|.a... ..|
|00001280| c1 02 1b 0e 1b 1b e6 61 | ac 86 1b 0e 1b 1b e7 61 |.......a|.......a|
|00001290| ab 89 d9 1b 0e 18 54 21 | 88 82 c1 02 1b 0e 1b 1b |......T!|........|
|000012a0| e8 61 ab d2 1b 0e 09 ab | c5 1b 0e 09 40 1e 29 1b |.a......|....@.).|
|000012b0| 0e 09 41 16 09 1b 0e 29 | 40 16 15 1b 0e 29 41 40 |..A....)|@....)A@|
|000012c0| 16 1b 0f cd 1b 0e 29 38 | 16 14 ea 1b 0e 29 38 16 |......)8|.....)8.|
|000012d0| 18 eb 1b 0e 29 38 14 1b | 0e 5c 6e 41 16 5c 6e 65 |....)8..|.\nA.\ne|
|000012e0| 64 7c 88 0c 41 40 63 88 | 60 16 0b d9 1b 0e 18 21 |d|..A@c.|`......!|
|000012f0| 88 de 1b 0e 14 21 88 29 | 82 c1 02 ec 16 08 c7 16 |.....!.)|........|
|00001300| 16 82 c1 02 1b 0e 1b 1b | ed 61 ac 86 1b 0e 1b 1b |........|.a......|
|00001310| ee 61 ab 89 d9 1b 0e 18 | 53 21 88 82 c1 02 1b 0e |.a......|S!......|
|00001320| 1b 1b ef 61 ab 88 d9 1b | 0e 18 21 88 82 c1 02 f0 |...a....|..!.....|
|00001330| 1b 0e 1b 1b 21 ab a1 f1 | 1b 0e 1b 1b 58 ab 9b 1b |....!...|....X...|
|00001340| 0e 1b 1b f2 58 ab 95 1b | 0e 1b 1b f1 1b 0e 15 47 |....X...|.......G|
|00001350| 53 5c 5c 58 ab 8a de 1b | 0e 1b 1b f1 5a 21 88 82 |S\\X....|....Z!..|
|00001360| c1 02 f0 1b 0e 1b 1b 21 | ab a5 f3 1b 0e 1b 1b 58 |.......!|.......X|
|00001370| ab 9f 1b 0e 1b 1b f4 58 | ab 99 1b 0e 1b 1b f5 5c |.......X|.......\|
|00001380| 5c f3 1b 0e 15 47 53 5c | 5c 58 ab 8c de 1b 0e 1b |\....GS\|\X......|
|00001390| 1b f3 5a f5 5c 5c 21 88 | 82 c1 02 f0 1b 0e 1b 1b |..Z.\\!.|........|
|000013a0| 21 ab a4 f6 1b 0e 1b 1b | 58 ab 9e 1b 0e 1b 1b f7 |!.......|X.......|
|000013b0| 58 ab 98 1b 0e 1b 1b f5 | 5c 5c f6 1b 0e 15 47 53 |X.......|\\....GS|
|000013c0| 5c 5c 58 ab 8b de 1b 0e | 1b 1b f6 5a f5 5c 5c 21 |\\X.....|...Z.\\!|
|000013d0| 88 aa e9 1b 0e 1b 1b f8 | 61 ac 86 1b 0e 1b 1b f9 |........|a.......|
|000013e0| 61 ab da d3 1b 0e 14 1b | 0e 15 38 21 16 16 d7 20 |a.......|..8!... |
|000013f0| 1b 0e 5c 6e 42 16 5c 6e | 1b 0e 16 3c ab c0 1b 0e |..\nB.\n|...<....|
|00001400| 16 40 c4 61 ab b9 1b 0e | 15 1b 0e 1b 0f 1b 0e 14 |.@.a....|........|
|00001410| 1b 0e 18 0c af 05 1b 0e | 09 42 16 09 1b 0e 16 14 |........|.B......|
|00001420| 65 64 7c 88 0c 41 40 63 | 88 60 16 0b cc cd 0c 38 |ed|..A@c|.`.....8|
|00001430| 0d ce 0c 41 40 21 5a 5c | 22 16 1b 0f d1 16 14 d9 |...A@!Z\|".......|
|00001440| d1 21 88 c7 16 16 aa 88 | ec 16 08 aa 83 fa 20 88 |.!......|...... .|
|00001450| 29 82 ff 00 2a 65 64 7c | 88 1b 0e 5c 6e 9f 16 5c |)...*ed||...\n..\|
|00001460| 6e c0 c1 20 1b 0e 3b 5c | 22 88 1b 0e 16 ac 85 ec |n.. ..;\|".......|
|00001470| 89 16 1c 87 1b 0e 3c ab | 86 1b 0e 16 1b 0e 5c 6e |......<.|......\n|
|00001480| 42 87 1b 0e 16 87 22 20 | 5b 73 65 74 2d 77 69 6e |B....." |[set-win|
|00001490| 64 6f 77 2d 62 75 66 66 | 65 72 20 6d 69 6e 69 62 |dow-buff|er minib|
|000014a0| 75 66 66 65 72 2d 77 69 | 6e 64 6f 77 20 6d 65 6e |uffer-wi|ndow men|
|000014b0| 75 62 75 66 66 65 72 20 | 73 65 6c 65 63 74 2d 77 |ubuffer |select-w|
|000014c0| 69 6e 64 6f 77 20 6d 65 | 6e 75 20 77 69 6e 64 6f |indow me|nu windo|
|000014d0| 77 2d 77 69 64 74 68 20 | 73 65 6c 65 63 74 65 64 |w-width |selected|
|000014e0| 2d 77 69 6e 64 6f 77 20 | 6e 69 6c 20 66 69 6e 69 |-window |nil fini|
|000014f0| 73 68 65 64 20 6d 65 6e | 75 3a 2a 73 65 6c 65 63 |shed men|u:*selec|
|00001500| 74 2d 6d 65 6e 75 2d 73 | 74 61 63 6b 2a 20 6d 65 |t-menu-s|tack* me|
|00001510| 6e 75 3a 2a 73 65 6c 65 | 63 74 2d 70 6f 73 69 74 |nu:*sele|ct-posit|
|00001520| 69 6f 6e 73 2a 20 6d 65 | 6e 75 3a 2a 73 65 6c 65 |ions* me|nu:*sele|
|00001530| 63 74 2d 73 74 61 72 74 | 2a 20 6d 65 6e 75 3a 6d |ct-start|* menu:m|
|00001540| 61 6b 65 2d 73 65 6c 65 | 63 74 69 6f 6e 2d 6c 69 |ake-sele|ction-li|
|00001550| 73 74 20 32 20 73 74 72 | 69 6e 67 2d 77 69 64 74 |st 2 str|ing-widt|
|00001560| 68 20 6d 65 6e 75 3a 2a | 73 65 6c 65 63 74 2d 6d |h menu:*|select-m|
|00001570| 65 6e 75 73 2a 20 69 6e | 69 74 69 61 6c 20 30 20 |enus* in|itial 0 |
|00001580| 6d 65 6e 75 3a 73 65 6c | 65 63 74 2d 67 6f 74 6f |menu:sel|ect-goto|
|00001590| 2d 69 74 65 6d 2d 70 6f | 73 69 74 69 6f 6e 20 6d |-item-po|sition m|
|000015a0| 65 6e 75 3a 69 74 65 6d | 2d 76 61 6c 75 65 20 6d |enu:item|-value m|
|000015b0| 65 6e 75 3a 2a 73 65 6c | 65 63 74 2d 69 74 65 6d |enu:*sel|ect-item|
|000015c0| 2d 6e 6f 2a 20 6d 65 6e | 75 3a 2a 73 65 6c 65 63 |-no* men|u:*selec|
|000015d0| 74 2d 69 74 65 6d 73 2a | 20 76 61 6c 75 65 20 6d |t-items*| value m|
|000015e0| 65 6e 75 3a 73 65 6c 65 | 63 74 2d 69 74 65 6d 2d |enu:sele|ct-item-|
|000015f0| 70 6f 73 69 74 69 6f 6e | 20 6d 65 6e 75 3a 2a 73 |position| menu:*s|
|00001600| 65 6c 65 63 74 2d 6d 65 | 6e 75 2d 6e 6f 2a 20 6d |elect-me|nu-no* m|
|00001610| 65 6e 75 3a 73 65 6c 65 | 63 74 2d 67 6f 74 6f 2d |enu:sele|ct-goto-|
|00001620| 6d 65 6e 75 20 65 67 67 | 2d 72 65 61 64 2d 65 76 |menu egg|-read-ev|
|00001630| 65 6e 74 20 63 68 20 71 | 75 69 74 2d 66 6c 61 67 |ent ch q|uit-flag|
|00001640| 20 3f 5c 5e 41 20 6d 65 | 6e 75 3a 73 65 6c 65 63 | ?\^A me|nu:selec|
|00001650| 74 2d 67 6f 74 6f 2d 69 | 74 65 6d 20 3f 5c 5e 45 |t-goto-i|tem ?\^E|
|00001660| 20 3f 5c 5e 46 20 72 69 | 67 68 74 20 6d 65 6e 75 | ?\^F ri|ght menu|
|00001670| 3a 73 65 6c 65 63 74 2d | 6e 65 78 74 2d 69 74 65 |:select-|next-ite|
|00001680| 6d 20 3f 5c 5e 42 20 6c | 65 66 74 20 6d 65 6e 75 |m ?\^B l|eft menu|
|00001690| 3a 73 65 6c 65 63 74 2d | 70 72 65 76 69 6f 75 73 |:select-|previous|
|000016a0| 2d 69 74 65 6d 20 3f 5c | 5e 4e 20 64 6f 77 6e 20 |-item ?\|^N down |
|000016b0| 3f 5c 5e 47 20 73 61 76 | 65 20 33 20 34 20 74 20 |?\^G sav|e 3 4 t |
|000016c0| 3f 5c 5e 50 20 75 70 20 | 3f 5c 5e 4c 20 63 68 61 |?\^P up |?\^L cha|
|000016d0| 72 61 63 74 65 72 70 20 | 3f 30 20 3f 39 20 3f 61 |racterp |?0 ?9 ?a|
|000016e0| 20 3f 7a 20 31 30 20 3f | 41 20 3f 5a 20 3f 5c 72 | ?z 10 ?|A ?Z ?\r|
|000016f0| 20 72 65 74 75 72 6e 20 | 62 65 65 70 20 6d 69 6e | return |beep min|
|00001700| 69 62 75 66 66 65 72 20 | 70 6f 73 69 74 69 6f 6e |ibuffer |position|
|00001710| 5d 20 35 29 29 5d 20 35 | 5d 29 0a 28 64 65 66 61 |] 5))] 5|]).(defa|
|00001720| 6c 69 61 73 20 27 6d 65 | 6e 75 3a 73 65 6c 65 63 |lias 'me|nu:selec|
|00001730| 74 2d 69 74 65 6d 2d 70 | 6f 73 69 74 69 6f 6e 20 |t-item-p|osition |
|00001740| 23 5b 6e 69 6c 20 22 c0 | 89 19 1a 09 0b 57 ab 8d |#[nil ".|.....W..|
|00001750| 5c 6e 09 0c 38 47 5c 5c | 12 09 54 89 11 aa 6f 5c |\n..8G\\|..T...o\|
|00001760| 6e 0d 5c 5c 2a 87 22 20 | 5b 30 20 6d 20 70 20 6d |n.\\*." |[0 m p m|
|00001770| 65 6e 75 3a 2a 73 65 6c | 65 63 74 2d 6d 65 6e 75 |enu:*sel|ect-menu|
|00001780| 2d 6e 6f 2a 20 6d 65 6e | 75 3a 2a 73 65 6c 65 63 |-no* men|u:*selec|
|00001790| 74 2d 6d 65 6e 75 73 2a | 20 6d 65 6e 75 3a 2a 73 |t-menus*| menu:*s|
|000017a0| 65 6c 65 63 74 2d 69 74 | 65 6d 2d 6e 6f 2a 5d 20 |elect-it|em-no*] |
|000017b0| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |4]).(def|alias 'm|
|000017c0| 65 6e 75 3a 73 65 6c 65 | 63 74 2d 67 6f 74 6f 2d |enu:sele|ct-goto-|
|000017d0| 69 74 65 6d 2d 70 6f 73 | 69 74 69 6f 6e 20 23 5b |item-pos|ition #[|
|000017e0| 28 70 6f 73 29 20 22 c0 | 89 19 1a 09 5c 6e 0b 38 |(pos) ".|....\n.8|
|000017f0| 47 5c 5c 0c 58 ab 8c 09 | 5c 6e 0b 38 47 5c 5c 11 |G\\.X...|\n.8G\\.|
|00001800| 5c 6e 54 12 aa 6a 0c 09 | 5a 15 c6 5c 6e 21 2a 87 |\nT..j..|Z..\n!*.|
|00001810| 22 20 5b 30 20 70 20 6d | 20 6d 65 6e 75 3a 2a 73 |" [0 p m| menu:*s|
|00001820| 65 6c 65 63 74 2d 6d 65 | 6e 75 73 2a 20 70 6f 73 |elect-me|nus* pos|
|00001830| 20 6d 65 6e 75 3a 2a 73 | 65 6c 65 63 74 2d 69 74 | menu:*s|elect-it|
|00001840| 65 6d 2d 6e 6f 2a 20 6d | 65 6e 75 3a 73 65 6c 65 |em-no* m|enu:sele|
|00001850| 63 74 2d 67 6f 74 6f 2d | 6d 65 6e 75 5d 20 33 5d |ct-goto-|menu] 3]|
|00001860| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 65 6e |).(defal|ias 'men|
|00001870| 75 3a 73 65 6c 65 63 74 | 2d 67 6f 74 6f 2d 6d 65 |u:select|-goto-me|
|00001880| 6e 75 20 23 5b 28 6e 6f | 29 20 22 c0 09 c2 0b 47 |nu #[(no|) "....G|
|00001890| 53 23 89 14 0b 38 15 1b | 0e 06 64 7c 88 0d 47 1b |S#...8..|..d|..G.|
|000018a0| 0e 07 58 ab 85 0d 47 53 | 16 07 1b 0e 06 62 88 0d |..X...GS|.....b..|
|000018b0| c2 1e 08 1e 09 1b 0e 09 | ab aa 1b 0e 08 ca 58 ab |........|......X.|
|000018c0| 87 cb cc 1b 0e 08 5c 22 | aa 89 cb cd 1b 0e 08 ce |......\"|........|
|000018d0| 5a cf 5c 5c 5c 22 d0 1b | 0e 09 40 21 b1 02 88 1b |Z.\\\"..|..@!....|
|000018e0| 0e 09 41 16 09 1b 0e 08 | 54 16 08 aa 52 2a d1 1b |..A.....|T...R*..|
|000018f0| 0e 07 21 87 22 20 5b 63 | 68 65 63 6b 2d 6e 75 6d |..!." [c|heck-num|
|00001900| 62 65 72 2d 72 61 6e 67 | 65 20 6e 6f 20 30 20 6d |ber-rang|e no 0 m|
|00001910| 65 6e 75 3a 2a 73 65 6c | 65 63 74 2d 6d 65 6e 75 |enu:*sel|ect-menu|
|00001920| 73 2a 20 6d 65 6e 75 3a | 2a 73 65 6c 65 63 74 2d |s* menu:|*select-|
|00001930| 6d 65 6e 75 2d 6e 6f 2a | 20 6d 65 6e 75 3a 2a 73 |menu-no*| menu:*s|
|00001940| 65 6c 65 63 74 2d 69 74 | 65 6d 73 2a 20 6d 65 6e |elect-it|ems* men|
|00001950| 75 3a 2a 73 65 6c 65 63 | 74 2d 73 74 61 72 74 2a |u:*selec|t-start*|
|00001960| 20 6d 65 6e 75 3a 2a 73 | 65 6c 65 63 74 2d 69 74 | menu:*s|elect-it|
|00001970| 65 6d 2d 6e 6f 2a 20 69 | 20 6c 20 39 20 66 6f 72 |em-no* i| l 9 for|
|00001980| 6d 61 74 20 22 20 20 25 | 64 2e 22 20 22 20 20 25 |mat " %|d." " %|
|00001990| 63 2e 22 20 31 30 20 3f | 61 20 6d 65 6e 75 3a 69 |c." 10 ?|a menu:i|
|000019a0| 74 65 6d 2d 73 74 72 69 | 6e 67 20 6d 65 6e 75 3a |tem-stri|ng menu:|
|000019b0| 73 65 6c 65 63 74 2d 67 | 6f 74 6f 2d 69 74 65 6d |select-g|oto-item|
|000019c0| 5d 20 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 5]).(d|efalias |
|000019d0| 27 6d 65 6e 75 3a 73 65 | 6c 65 63 74 2d 67 6f 74 |'menu:se|lect-got|
|000019e0| 6f 2d 69 74 65 6d 20 23 | 5b 28 6e 6f 29 20 22 c0 |o-item #|[(no) ".|
|000019f0| 09 c2 0b 47 53 23 14 0d | c6 5c 5c c2 1e 07 1e 08 |...GS#..|.\\.....|
|00001a00| 1b 0e 07 0c 57 ab 96 1b | 0e 08 c9 1b 0e 07 0b 38 |....W...|.......8|
|00001a10| 21 47 5c 5c ca 5c 5c 16 | 08 1b 0e 07 54 89 16 07 |!G\\.\\.|....T...|
|00001a20| aa 66 1b 0e 08 62 2a 87 | 22 20 5b 63 68 65 63 6b |.f...b*.|" [check|
|00001a30| 2d 6e 75 6d 62 65 72 2d | 72 61 6e 67 65 20 6e 6f |-number-|range no|
|00001a40| 20 30 20 6d 65 6e 75 3a | 2a 73 65 6c 65 63 74 2d | 0 menu:|*select-|
|00001a50| 69 74 65 6d 73 2a 20 6d | 65 6e 75 3a 2a 73 65 6c |items* m|enu:*sel|
|00001a60| 65 63 74 2d 69 74 65 6d | 2d 6e 6f 2a 20 6d 65 6e |ect-item|-no* men|
|00001a70| 75 3a 2a 73 65 6c 65 63 | 74 2d 73 74 61 72 74 2a |u:*selec|t-start*|
|00001a80| 20 32 20 69 20 70 20 6d | 65 6e 75 3a 69 74 65 6d | 2 i p m|enu:item|
|00001a90| 2d 73 74 72 69 6e 67 20 | 34 5d 20 35 5d 29 0a 28 |-string |4] 5]).(|
|00001aa0| 64 65 66 61 6c 69 61 73 | 20 27 6d 65 6e 75 3a 73 |defalias| 'menu:s|
|00001ab0| 65 6c 65 63 74 2d 6e 65 | 78 74 2d 69 74 65 6d 20 |elect-ne|xt-item |
|00001ac0| 23 5b 6e 69 6c 20 22 08 | 09 47 53 57 ab 85 c2 08 |#[nil ".|.GSW....|
|00001ad0| 54 21 87 c3 10 c4 0d 54 | 21 87 22 20 5b 6d 65 6e |T!.....T|!." [men|
|00001ae0| 75 3a 2a 73 65 6c 65 63 | 74 2d 69 74 65 6d 2d 6e |u:*selec|t-item-n|
|00001af0| 6f 2a 20 6d 65 6e 75 3a | 2a 73 65 6c 65 63 74 2d |o* menu:|*select-|
|00001b00| 69 74 65 6d 73 2a 20 6d | 65 6e 75 3a 73 65 6c 65 |items* m|enu:sele|
|00001b10| 63 74 2d 67 6f 74 6f 2d | 69 74 65 6d 20 30 20 6d |ct-goto-|item 0 m|
|00001b20| 65 6e 75 3a 73 65 6c 65 | 63 74 2d 67 6f 74 6f 2d |enu:sele|ct-goto-|
|00001b30| 6d 65 6e 75 20 6d 65 6e | 75 3a 2a 73 65 6c 65 63 |menu men|u:*selec|
|00001b40| 74 2d 6d 65 6e 75 2d 6e | 6f 2a 5d 20 32 5d 29 0a |t-menu-n|o*] 2]).|
|00001b50| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 65 6e 75 3a |(defalia|s 'menu:|
|00001b60| 73 65 6c 65 63 74 2d 70 | 72 65 76 69 6f 75 73 2d |select-p|revious-|
|00001b70| 69 74 65 6d 20 23 5b 6e | 69 6c 20 22 c0 09 57 ab |item #[n|il "..W.|
|00001b80| 85 c2 09 53 21 87 c3 11 | c4 0d 53 21 87 22 20 5b |...S!...|..S!." [|
|00001b90| 30 20 6d 65 6e 75 3a 2a | 73 65 6c 65 63 74 2d 69 |0 menu:*|select-i|
|00001ba0| 74 65 6d 2d 6e 6f 2a 20 | 6d 65 6e 75 3a 73 65 6c |tem-no* |menu:sel|
|00001bb0| 65 63 74 2d 67 6f 74 6f | 2d 69 74 65 6d 20 31 30 |ect-goto|-item 10|
|00001bc0| 30 30 20 6d 65 6e 75 3a | 73 65 6c 65 63 74 2d 67 |00 menu:|select-g|
|00001bd0| 6f 74 6f 2d 6d 65 6e 75 | 20 6d 65 6e 75 3a 2a 73 |oto-menu| menu:*s|
|00001be0| 65 6c 65 63 74 2d 6d 65 | 6e 75 2d 6e 6f 2a 5d 20 |elect-me|nu-no*] |
|00001bf0| 32 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |2]).(byt|e-code "|
|00001c00| c0 c1 21 ac 82 c2 11 c1 | 0b 42 13 c2 87 22 20 5b |..!.....|.B..." [|
|00001c10| 62 6f 75 6e 64 70 20 6d | 65 6e 75 3a 2a 64 69 73 |boundp m|enu:*dis|
|00001c20| 70 6c 61 79 2d 69 74 65 | 6d 2d 76 61 6c 75 65 2a |play-ite|m-value*|
|00001c30| 20 6e 69 6c 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 | nil cur|rent-loa|
|00001c40| 64 2d 6c 69 73 74 5d 20 | 32 29 0a 28 64 65 66 61 |d-list] |2).(defa|
|00001c50| 6c 69 61 73 20 27 6d 65 | 6e 75 3a 69 74 65 6d 2d |lias 'me|nu:item-|
|00001c60| 73 74 72 69 6e 67 20 23 | 5b 28 69 74 65 6d 29 20 |string #|[(item) |
|00001c70| 22 08 3b ab 82 08 87 c1 | 08 21 ab 84 c2 08 21 87 |".;.....|.!....!.|
|00001c80| 08 3a ab b4 0b ab 9c c4 | c5 08 40 3b ab 84 08 40 |.:......|..@;...@|
|00001c90| aa 8d c1 08 40 21 ab 86 | c2 08 40 21 aa 81 c6 08 |....@!..|..@!....|
|00001ca0| 41 23 87 08 40 3b ab 83 | 08 40 87 c1 08 40 21 ab |A#..@;..|.@...@!.|
|00001cb0| 85 c2 08 40 21 87 c6 87 | c6 87 22 20 5b 69 74 65 |...@!...|.." [ite|
|00001cc0| 6d 20 63 68 61 72 61 63 | 74 65 72 70 20 63 68 61 |m charac|terp cha|
|00001cd0| 72 2d 74 6f 2d 73 74 72 | 69 6e 67 20 6d 65 6e 75 |r-to-str|ing menu|
|00001ce0| 3a 2a 64 69 73 70 6c 61 | 79 2d 69 74 65 6d 2d 76 |:*displa|y-item-v|
|00001cf0| 61 6c 75 65 2a 20 66 6f | 72 6d 61 74 20 22 25 73 |alue* fo|rmat "%s|
|00001d00| 20 5b 25 73 5d 22 20 22 | 22 5d 20 34 5d 29 0a 28 | [%s]" "|"] 4]).(|
|00001d10| 64 65 66 61 6c 69 61 73 | 20 27 6d 65 6e 75 3a 69 |defalias| 'menu:i|
|00001d20| 74 65 6d 2d 76 61 6c 75 | 65 20 23 5b 28 69 74 65 |tem-valu|e #[(ite|
|00001d30| 6d 29 20 22 08 3b ab 82 | 08 87 08 41 87 22 20 5b |m) ".;..|...A." [|
|00001d40| 69 74 65 6d 5d 20 31 5d | 29 0a 28 64 65 66 61 6c |item] 1]|).(defal|
|00001d50| 69 61 73 20 27 6d 65 6e | 75 3a 6d 61 6b 65 2d 73 |ias 'men|u:make-s|
|00001d60| 65 6c 65 63 74 69 6f 6e | 2d 6c 69 73 74 20 23 5b |election|-list #[|
|00001d70| 28 69 74 65 6d 73 20 77 | 69 64 74 68 29 20 22 c0 |(items w|idth) ".|
|00001d80| 89 c1 1a 1b 1b 1c 0d ab | c2 1b 0e 06 5c 6e c7 c8 |........|....\n..|
|00001d90| 0d 40 21 21 5c 5c c9 5c | 5c 58 ab 9d 0b ab 8c ca |.@!!\\.\|\X......|
|00001da0| 0b 21 0c 42 14 c0 13 c1 | 12 aa 5f 0d 40 43 0c 42 |.!.B....|.._.@C.B|
|00001db0| 14 c1 12 0d 41 89 15 aa | 52 0d 40 0b 42 13 5c 6e |....A...|R.@.B.\n|
|00001dc0| c7 c8 0d 40 21 21 5c 5c | c9 5c 5c 12 0d 41 89 15 |...@!!\\|.\\..A..|
|00001dd0| ac 3e 0b ab 89 ca 89 0b | 21 0c 42 21 aa 83 ca 0c |.>......|!.B!....|
|00001de0| 21 2b 87 22 20 5b 6e 69 | 6c 20 30 20 73 69 7a 65 |!+." [ni|l 0 size|
|00001df0| 20 6c 69 6e 65 20 77 68 | 6f 6c 65 20 69 74 65 6d | line wh|ole item|
|00001e00| 73 20 77 69 64 74 68 20 | 73 74 72 69 6e 67 2d 77 |s width |string-w|
|00001e10| 69 64 74 68 20 6d 65 6e | 75 3a 69 74 65 6d 2d 73 |idth men|u:item-s|
|00001e20| 74 72 69 6e 67 20 34 20 | 72 65 76 65 72 73 65 5d |tring 4 |reverse]|
|00001e30| 20 36 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 6]).(de|falias '|
|00001e40| 68 69 72 61 67 61 6e 61 | 2d 72 65 67 69 6f 6e 20 |hiragana|-region |
|00001e50| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 29 20 22 08 |#[(start| end) ".|
|00001e60| 62 88 c1 5c 6e 0b 89 23 | ad ab c4 60 21 89 1d c6 |b..\n..#|...`!...|
|00001e70| 56 ac 9f 0d c7 61 ac 9a | 0d c8 61 ac 95 0d c9 61 |V....a..|..a....a|
|00001e80| ac 90 ca cb 21 88 cc cd | ce 21 cf d0 0d d1 5c 22 |....!...|.!....\"|
|00001e90| 23 63 88 29 aa 4e 87 22 | 20 5b 73 74 61 72 74 20 |#c.).N."| [start |
|00001ea0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001eb0| 64 20 6b 61 6e 6a 69 2d | 6b 61 74 61 6b 61 6e 61 |d kanji-|katakana|
|00001ec0| 20 65 6e 64 20 63 68 61 | 72 2d 62 65 66 6f 72 65 | end cha|r-before|
|00001ed0| 20 63 68 20 3f 1b 24 28 | 42 25 73 1b 28 42 20 3f | ch ?.$(|B%s.(B ?|
|00001ee0| 1b 24 28 42 21 3c 1b 28 | 42 20 3f 1b 24 28 42 21 |.$(B!<.(|B ?.$(B!|
|00001ef0| 2b 1b 28 42 20 3f 1b 24 | 28 42 21 2c 1b 28 42 20 |+.(B ?.$|(B!,.(B |
|00001f00| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 2d 31 20 6d |delete-c|har -1 m|
|00001f10| 61 6b 65 2d 63 68 61 72 | 20 66 69 6e 64 2d 63 68 |ake-char| find-ch|
|00001f20| 61 72 73 65 74 20 6a 61 | 70 61 6e 65 73 65 2d 6a |arset ja|panese-j|
|00001f30| 69 73 78 30 32 30 38 20 | 33 36 20 63 68 61 72 2d |isx0208 |36 char-|
|00001f40| 6f 63 74 65 74 20 31 5d | 20 37 20 6e 69 6c 20 22 |octet 1]| 7 nil "|
|00001f50| 72 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |r"]).(de|falias '|
|00001f60| 68 69 72 61 67 61 6e 61 | 2d 70 61 72 61 67 72 61 |hiragana|-paragra|
|00001f70| 70 68 20 23 5b 6e 69 6c | 20 22 8a c0 20 88 60 19 |ph #[nil| ".. .`.|
|00001f80| c2 20 88 c3 60 09 5c 22 | 2a 87 22 20 5b 66 6f 72 |. ..`.\"|*." [for|
|00001f90| 77 61 72 64 2d 70 61 72 | 61 67 72 61 70 68 20 65 |ward-par|agraph e|
|00001fa0| 6e 64 20 62 61 63 6b 77 | 61 72 64 2d 70 61 72 61 |nd backw|ard-para|
|00001fb0| 67 72 61 70 68 20 68 69 | 72 61 67 61 6e 61 2d 72 |graph hi|ragana-r|
|00001fc0| 65 67 69 6f 6e 5d 20 33 | 20 22 5c 0a 68 69 72 61 |egion] 3| "\.hira|
|00001fd0| 67 61 6e 61 20 20 70 61 | 72 61 67 72 61 70 68 20 |gana pa|ragraph |
|00001fe0| 61 74 20 6f 72 20 61 66 | 74 65 72 20 70 6f 69 6e |at or af|ter poin|
|00001ff0| 74 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |t." nil]|).(defal|
|00002000| 69 61 73 20 27 68 69 72 | 61 67 61 6e 61 2d 73 65 |ias 'hir|agana-se|
|00002010| 6e 74 65 6e 63 65 20 23 | 5b 6e 69 6c 20 22 8a c0 |ntence #|[nil "..|
|00002020| 20 88 60 19 c2 20 88 c3 | 60 09 5c 22 2a 87 22 20 | .`.. ..|`.\"*." |
|00002030| 5b 66 6f 72 77 61 72 64 | 2d 73 65 6e 74 65 6e 63 |[forward|-sentenc|
|00002040| 65 20 65 6e 64 20 62 61 | 63 6b 77 61 72 64 2d 73 |e end ba|ckward-s|
|00002050| 65 6e 74 65 6e 63 65 20 | 68 69 72 61 67 61 6e 61 |entence |hiragana|
|00002060| 2d 72 65 67 69 6f 6e 5d | 20 33 20 22 5c 0a 68 69 |-region]| 3 "\.hi|
|00002070| 72 61 67 61 6e 61 20 20 | 73 65 6e 74 65 6e 63 65 |ragana |sentence|
|00002080| 20 61 74 20 6f 72 20 61 | 66 74 65 72 20 70 6f 69 | at or a|fter poi|
|00002090| 6e 74 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |nt." nil|]).(defa|
|000020a0| 6c 69 61 73 20 27 6b 61 | 74 61 6b 61 6e 61 2d 72 |lias 'ka|takana-r|
|000020b0| 65 67 69 6f 6e 20 23 5b | 28 73 74 61 72 74 20 65 |egion #[|(start e|
|000020c0| 6e 64 29 20 22 08 62 88 | c1 5c 6e 0b 89 23 ad 9c |nd) ".b.|.\n..#..|
|000020d0| c4 60 21 89 1d c6 73 ac | 90 c7 c8 21 88 c9 ca cb |.`!...s.|...!....|
|000020e0| 21 cc cd 0d ce 5c 22 23 | 63 88 29 aa 5d 87 22 20 |!....\"#|c.).]." |
|000020f0| 5b 73 74 61 72 74 20 72 | 65 2d 73 65 61 72 63 68 |[start r|e-search|
|00002100| 2d 66 6f 72 77 61 72 64 | 20 6b 61 6e 6a 69 2d 68 |-forward| kanji-h|
|00002110| 69 72 61 67 61 6e 61 20 | 65 6e 64 20 63 68 61 72 |iragana |end char|
|00002120| 2d 62 65 66 6f 72 65 20 | 63 68 20 28 3f 1b 24 28 |-before |ch (?.$(|
|00002130| 42 21 3c 1b 28 42 20 3f | 1b 24 28 42 21 2b 1b 28 |B!<.(B ?|.$(B!+.(|
|00002140| 42 20 3f 1b 24 28 42 21 | 2c 1b 28 42 29 20 64 65 |B ?.$(B!|,.(B) de|
|00002150| 6c 65 74 65 2d 63 68 61 | 72 20 2d 31 20 6d 61 6b |lete-cha|r -1 mak|
|00002160| 65 2d 63 68 61 72 20 66 | 69 6e 64 2d 63 68 61 72 |e-char f|ind-char|
|00002170| 73 65 74 20 6a 61 70 61 | 6e 65 73 65 2d 6a 69 73 |set japa|nese-jis|
|00002180| 78 30 32 30 38 20 33 37 | 20 63 68 61 72 2d 6f 63 |x0208 37| char-oc|
|00002190| 74 65 74 20 31 5d 20 37 | 20 6e 69 6c 20 22 72 22 |tet 1] 7| nil "r"|
|000021a0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6b 61 |]).(defa|lias 'ka|
|000021b0| 74 61 6b 61 6e 61 2d 70 | 61 72 61 67 72 61 70 68 |takana-p|aragraph|
|000021c0| 20 23 5b 6e 69 6c 20 22 | 8a c0 20 88 60 19 c2 20 | #[nil "|.. .`.. |
|000021d0| 88 c3 60 09 5c 22 2a 87 | 22 20 5b 66 6f 72 77 61 |..`.\"*.|" [forwa|
|000021e0| 72 64 2d 70 61 72 61 67 | 72 61 70 68 20 65 6e 64 |rd-parag|raph end|
|000021f0| 20 62 61 63 6b 77 61 72 | 64 2d 70 61 72 61 67 72 | backwar|d-paragr|
|00002200| 61 70 68 20 6b 61 74 61 | 6b 61 6e 61 2d 72 65 67 |aph kata|kana-reg|
|00002210| 69 6f 6e 5d 20 33 20 22 | 5c 0a 6b 61 74 61 6b 61 |ion] 3 "|\.kataka|
|00002220| 6e 61 20 20 70 61 72 61 | 67 72 61 70 68 20 61 74 |na para|graph at|
|00002230| 20 6f 72 20 61 66 74 65 | 72 20 70 6f 69 6e 74 2e | or afte|r point.|
|00002240| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00002250| 73 20 27 6b 61 74 61 6b | 61 6e 61 2d 73 65 6e 74 |s 'katak|ana-sent|
|00002260| 65 6e 63 65 20 23 5b 6e | 69 6c 20 22 8a c0 20 88 |ence #[n|il ".. .|
|00002270| 60 19 c2 20 88 c3 60 09 | 5c 22 2a 87 22 20 5b 66 |`.. ..`.|\"*." [f|
|00002280| 6f 72 77 61 72 64 2d 73 | 65 6e 74 65 6e 63 65 20 |orward-s|entence |
|00002290| 65 6e 64 20 62 61 63 6b | 77 61 72 64 2d 73 65 6e |end back|ward-sen|
|000022a0| 74 65 6e 63 65 20 6b 61 | 74 61 6b 61 6e 61 2d 72 |tence ka|takana-r|
|000022b0| 65 67 69 6f 6e 5d 20 33 | 20 22 5c 0a 6b 61 74 61 |egion] 3| "\.kata|
|000022c0| 6b 61 6e 61 20 20 73 65 | 6e 74 65 6e 63 65 20 61 |kana se|ntence a|
|000022d0| 74 20 6f 72 20 61 66 74 | 65 72 20 70 6f 69 6e 74 |t or aft|er point|
|000022e0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|000022f0| 61 73 20 27 68 61 6e 6b | 61 6b 75 2d 72 65 67 69 |as 'hank|aku-regi|
|00002300| 6f 6e 20 23 5b 28 73 74 | 61 72 74 20 65 6e 64 29 |on #[(st|art end)|
|00002310| 20 22 8c 08 09 7d 88 65 | 62 88 c2 c3 64 64 23 ad | "...}.e|b...dd#.|
|00002320| bd c4 60 21 1d c6 0d c7 | 5c 22 1e 08 c6 0d c9 5c |..`!....|\".....\|
|00002330| 22 1e 5c 6e 1b 0e 08 cb | 55 ab 96 1b 0e 5c 6e 1b |".\n....|U....\n.|
|00002340| 0e 0c b7 41 89 1e 0d ab | 88 ce cf 21 88 1b 0e 0d |...A....|...!....|
|00002350| 63 88 29 aa 8e 1b 0e 08 | d0 55 ab 88 ce cf 21 88 |c.).....|.U....!.|
|00002360| 1b 0e 5c 6e 63 88 2b aa | 3c 29 87 22 20 5b 73 74 |..\nc.+.|<)." [st|
|00002370| 61 72 74 20 65 6e 64 20 | 72 65 2d 73 65 61 72 63 |art end |re-searc|
|00002380| 68 2d 66 6f 72 77 61 72 | 64 20 22 5c 5c 63 53 5c |h-forwar|d "\\cS\|
|00002390| 5c 7c 5c 5c 63 41 5c 5c | 7c 5c 5c 63 4b 22 20 63 |\|\\cA\\||\\cK" c|
|000023a0| 68 61 72 2d 62 65 66 6f | 72 65 20 63 68 20 63 68 |har-befo|re ch ch|
|000023b0| 61 72 2d 6f 63 74 65 74 | 20 30 20 63 68 31 20 31 |ar-octet| 0 ch1 1|
|000023c0| 20 63 68 32 20 33 33 20 | 2a 68 61 6e 6b 61 6b 75 | ch2 33 |*hankaku|
|000023d0| 2d 61 6c 69 73 74 2a 20 | 76 61 6c 20 64 65 6c 65 |-alist* |val dele|
|000023e0| 74 65 2d 63 68 61 72 20 | 2d 31 20 33 35 5d 20 35 |te-char |-1 35] 5|
|000023f0| 20 6e 69 6c 20 22 72 22 | 5d 29 0a 28 64 65 66 61 | nil "r"|]).(defa|
|00002400| 6c 69 61 73 20 27 68 61 | 6e 6b 61 6b 75 2d 70 61 |lias 'ha|nkaku-pa|
|00002410| 72 61 67 72 61 70 68 20 | 23 5b 6e 69 6c 20 22 8a |ragraph |#[nil ".|
|00002420| c0 20 88 60 19 c2 20 88 | c3 60 09 5c 22 2a 87 22 |. .`.. .|.`.\"*."|
|00002430| 20 5b 66 6f 72 77 61 72 | 64 2d 70 61 72 61 67 72 | [forwar|d-paragr|
|00002440| 61 70 68 20 65 6e 64 20 | 62 61 63 6b 77 61 72 64 |aph end |backward|
|00002450| 2d 70 61 72 61 67 72 61 | 70 68 20 68 61 6e 6b 61 |-paragra|ph hanka|
|00002460| 6b 75 2d 72 65 67 69 6f | 6e 5d 20 33 20 22 5c 0a |ku-regio|n] 3 "\.|
|00002470| 68 61 6e 6b 61 6b 75 20 | 20 70 61 72 61 67 72 61 |hankaku | paragra|
|00002480| 70 68 20 61 74 20 6f 72 | 20 61 66 74 65 72 20 70 |ph at or| after p|
|00002490| 6f 69 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |oint." n|il]).(de|
|000024a0| 66 61 6c 69 61 73 20 27 | 68 61 6e 6b 61 6b 75 2d |falias '|hankaku-|
|000024b0| 73 65 6e 74 65 6e 63 65 | 20 23 5b 6e 69 6c 20 22 |sentence| #[nil "|
|000024c0| 8a c0 20 88 60 19 c2 20 | 88 c3 60 09 5c 22 2a 87 |.. .`.. |..`.\"*.|
|000024d0| 22 20 5b 66 6f 72 77 61 | 72 64 2d 73 65 6e 74 65 |" [forwa|rd-sente|
|000024e0| 6e 63 65 20 65 6e 64 20 | 62 61 63 6b 77 61 72 64 |nce end |backward|
|000024f0| 2d 73 65 6e 74 65 6e 63 | 65 20 68 61 6e 6b 61 6b |-sentenc|e hankak|
|00002500| 75 2d 72 65 67 69 6f 6e | 5d 20 33 20 22 5c 0a 68 |u-region|] 3 "\.h|
|00002510| 61 6e 6b 61 6b 75 20 20 | 73 65 6e 74 65 6e 63 65 |ankaku |sentence|
|00002520| 20 61 74 20 6f 72 20 61 | 66 74 65 72 20 70 6f 69 | at or a|fter poi|
|00002530| 6e 74 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |nt." nil|]).(defa|
|00002540| 6c 69 61 73 20 27 68 61 | 6e 6b 61 6b 75 2d 77 6f |lias 'ha|nkaku-wo|
|00002550| 72 64 20 23 5b 28 61 72 | 67 29 20 22 60 18 09 76 |rd #[(ar|g) "`..v|
|00002560| 88 c2 08 60 5c 22 29 87 | 22 20 5b 73 74 61 72 74 |...`\").|" [start|
|00002570| 20 61 72 67 20 68 61 6e | 6b 61 6b 75 2d 72 65 67 | arg han|kaku-reg|
|00002580| 69 6f 6e 5d 20 33 20 6e | 69 6c 20 22 70 22 5d 29 |ion] 3 n|il "p"])|
|00002590| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|000025a0| ac 82 c2 11 c1 0b 42 13 | c0 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|000025b0| 6e 64 70 20 2a 68 61 6e | 6b 61 6b 75 2d 61 6c 69 |ndp *han|kaku-ali|
|000025c0| 73 74 2a 20 28 28 31 36 | 31 20 2e 20 3f 5c 20 29 |st* ((16|1 . ?\ )|
|000025d0| 20 28 31 37 30 20 2e 20 | 3f 5c 21 29 20 28 32 30 | (170 . |?\!) (20|
|000025e0| 31 20 2e 20 3f 5c 22 29 | 20 28 32 34 34 20 2e 20 |1 . ?\")| (244 . |
|000025f0| 3f 5c 23 29 20 28 32 34 | 30 20 2e 20 3f 5c 24 29 |?\#) (24|0 . ?\$)|
|00002600| 20 28 32 34 33 20 2e 20 | 3f 5c 25 29 20 28 32 34 | (243 . |?\%) (24|
|00002610| 35 20 2e 20 3f 5c 26 29 | 20 28 31 39 39 20 2e 20 |5 . ?\&)| (199 . |
|00002620| 3f 5c 27 29 20 28 32 30 | 32 20 2e 20 3f 5c 28 29 |?\') (20|2 . ?\()|
|00002630| 20 28 32 30 33 20 2e 20 | 3f 5c 29 29 20 28 32 34 | (203 . |?\)) (24|
|00002640| 36 20 2e 20 3f 5c 2a 29 | 20 28 32 32 30 20 2e 20 |6 . ?\*)| (220 . |
|00002650| 3f 5c 2b 29 20 28 31 36 | 34 20 2e 20 3f 5c 2c 29 |?\+) (16|4 . ?\,)|
|00002660| 20 28 32 32 31 20 2e 20 | 3f 5c 2d 29 20 28 31 36 | (221 . |?\-) (16|
|00002670| 35 20 2e 20 3f 5c 2e 29 | 20 28 31 39 31 20 2e 20 |5 . ?\.)| (191 . |
|00002680| 3f 5c 2f 29 20 28 31 36 | 37 20 2e 20 3f 5c 3a 29 |?\/) (16|7 . ?\:)|
|00002690| 20 28 31 36 38 20 2e 20 | 3f 5c 3b 29 20 28 32 32 | (168 . |?\;) (22|
|000026a0| 37 20 2e 20 3f 5c 3c 29 | 20 28 32 32 35 20 2e 20 |7 . ?\<)| (225 . |
|000026b0| 3f 5c 3d 29 20 28 32 32 | 38 20 2e 20 3f 5c 3e 29 |?\=) (22|8 . ?\>)|
|000026c0| 20 28 31 36 39 20 2e 20 | 3f 5c 3f 29 20 28 32 34 | (169 . |?\?) (24|
|000026d0| 37 20 2e 20 3f 5c 40 29 | 20 28 32 30 36 20 2e 20 |7 . ?\@)| (206 . |
|000026e0| 3f 5c 5b 29 20 28 32 33 | 39 20 2e 20 3f 5c 5c 29 |?\[) (23|9 . ?\\)|
|000026f0| 20 28 32 30 37 20 2e 20 | 3f 5c 5d 29 20 28 31 37 | (207 . |?\]) (17|
|00002700| 36 20 2e 20 3f 5e 29 20 | 28 31 37 38 20 2e 20 3f |6 . ?^) |(178 . ?|
|00002710| 5c 5f 29 20 28 32 30 38 | 20 2e 20 3f 5c 7b 29 20 |\_) (208| . ?\{) |
|00002720| 28 31 39 35 20 2e 20 3f | 5c 7c 29 20 28 32 30 39 |(195 . ?|\|) (209|
|00002730| 20 2e 20 3f 5c 7d 29 20 | 28 31 37 37 20 2e 20 3f | . ?\}) |(177 . ?|
|00002740| 5c 7e 29 20 28 31 39 38 | 20 2e 20 3f 5c 60 29 29 |\~) (198| . ?\`))|
|00002750| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00002760| 73 74 5d 20 32 29 0a 28 | 64 65 66 61 6c 69 61 73 |st] 2).(|defalias|
|00002770| 20 27 7a 65 6e 6b 61 6b | 75 2d 72 65 67 69 6f 6e | 'zenkak|u-region|
|00002780| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 29 20 22 | #[(star|t end) "|
|00002790| 8c 08 09 7d 88 65 62 88 | c2 c3 64 64 23 ad b1 c4 |...}.eb.|..dd#...|
|000027a0| 60 21 1d c6 0d 58 ab a5 | 0d c7 58 ab a0 c8 c9 21 |`!...X..|..X....!|
|000027b0| 88 0d 1b 0e 5c 6e b7 41 | 89 1e 0b ab 86 1b 0e 0b |....\n.A|........|
|000027c0| 63 88 aa 8b cc cd ce 21 | cf d0 0d 21 23 63 88 29 |c......!|...!#c.)|
|000027d0| 29 aa 48 29 87 22 20 5b | 73 74 61 72 74 20 65 6e |).H)." [|start en|
|000027e0| 64 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |d re-sea|rch-forw|
|000027f0| 61 72 64 20 22 5b 20 2d | 7e 5d 22 20 63 68 61 72 |ard "[ -|~]" char|
|00002800| 2d 62 65 66 6f 72 65 20 | 63 68 20 3f 5c 20 20 3f |-before |ch ?\ ?|
|00002810| 5c 7e 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 2d |\~ delet|e-char -|
|00002820| 31 20 2a 7a 65 6e 6b 61 | 6b 75 2d 61 6c 69 73 74 |1 *zenka|ku-alist|
|00002830| 2a 20 7a 65 6e 20 6d 61 | 6b 65 2d 63 68 61 72 20 |* zen ma|ke-char |
|00002840| 66 69 6e 64 2d 63 68 61 | 72 73 65 74 20 6a 61 70 |find-cha|rset jap|
|00002850| 61 6e 65 73 65 2d 6a 69 | 73 78 30 32 30 38 20 33 |anese-ji|sx0208 3|
|00002860| 38 20 63 68 61 72 2d 74 | 6f 2d 69 6e 74 5d 20 36 |8 char-t|o-int] 6|
|00002870| 20 6e 69 6c 20 22 72 22 | 5d 29 0a 28 64 65 66 61 | nil "r"|]).(defa|
|00002880| 6c 69 61 73 20 27 7a 65 | 6e 6b 61 6b 75 2d 70 61 |lias 'ze|nkaku-pa|
|00002890| 72 61 67 72 61 70 68 20 | 23 5b 6e 69 6c 20 22 8a |ragraph |#[nil ".|
|000028a0| c0 20 88 60 19 c2 20 88 | c3 60 09 5c 22 2a 87 22 |. .`.. .|.`.\"*."|
|000028b0| 20 5b 66 6f 72 77 61 72 | 64 2d 70 61 72 61 67 72 | [forwar|d-paragr|
|000028c0| 61 70 68 20 65 6e 64 20 | 62 61 63 6b 77 61 72 64 |aph end |backward|
|000028d0| 2d 70 61 72 61 67 72 61 | 70 68 20 7a 65 6e 6b 61 |-paragra|ph zenka|
|000028e0| 6b 75 2d 72 65 67 69 6f | 6e 5d 20 33 20 22 5c 0a |ku-regio|n] 3 "\.|
|000028f0| 7a 65 6e 6b 61 6b 75 20 | 20 70 61 72 61 67 72 61 |zenkaku | paragra|
|00002900| 70 68 20 61 74 20 6f 72 | 20 61 66 74 65 72 20 70 |ph at or| after p|
|00002910| 6f 69 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |oint." n|il]).(de|
|00002920| 66 61 6c 69 61 73 20 27 | 7a 65 6e 6b 61 6b 75 2d |falias '|zenkaku-|
|00002930| 73 65 6e 74 65 6e 63 65 | 20 23 5b 6e 69 6c 20 22 |sentence| #[nil "|
|00002940| 8a c0 20 88 60 19 c2 20 | 88 c3 60 09 5c 22 2a 87 |.. .`.. |..`.\"*.|
|00002950| 22 20 5b 66 6f 72 77 61 | 72 64 2d 73 65 6e 74 65 |" [forwa|rd-sente|
|00002960| 6e 63 65 20 65 6e 64 20 | 62 61 63 6b 77 61 72 64 |nce end |backward|
|00002970| 2d 73 65 6e 74 65 6e 63 | 65 20 7a 65 6e 6b 61 6b |-sentenc|e zenkak|
|00002980| 75 2d 72 65 67 69 6f 6e | 5d 20 33 20 22 5c 0a 7a |u-region|] 3 "\.z|
|00002990| 65 6e 6b 61 6b 75 20 20 | 73 65 6e 74 65 6e 63 65 |enkaku |sentence|
|000029a0| 20 61 74 20 6f 72 20 61 | 66 74 65 72 20 70 6f 69 | at or a|fter poi|
|000029b0| 6e 74 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |nt." nil|]).(defa|
|000029c0| 6c 69 61 73 20 27 7a 65 | 6e 6b 61 6b 75 2d 77 6f |lias 'ze|nkaku-wo|
|000029d0| 72 64 20 23 5b 28 61 72 | 67 29 20 22 60 18 09 76 |rd #[(ar|g) "`..v|
|000029e0| 88 c2 08 60 5c 22 29 87 | 22 20 5b 73 74 61 72 74 |...`\").|" [start|
|000029f0| 20 61 72 67 20 7a 65 6e | 6b 61 6b 75 2d 72 65 67 | arg zen|kaku-reg|
|00002a00| 69 6f 6e 5d 20 33 20 6e | 69 6c 20 22 70 22 5d 29 |ion] 3 n|il "p"])|
|00002a10| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00002a20| ac 82 c2 11 c1 0b 42 13 | c0 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|00002a30| 6e 64 70 20 2a 7a 65 6e | 6b 61 6b 75 2d 61 6c 69 |ndp *zen|kaku-ali|
|00002a40| 73 74 2a 20 28 28 3f 5c | 20 20 2e 20 22 1b 24 28 |st* ((?\| . ".$(|
|00002a50| 42 21 21 1b 28 42 22 29 | 20 28 3f 5c 21 20 2e 20 |B!!.(B")| (?\! . |
|00002a60| 22 1b 24 28 42 21 2a 1b | 28 42 22 29 20 28 3f 5c |".$(B!*.|(B") (?\|
|00002a70| 22 20 2e 20 22 1b 24 28 | 42 21 49 1b 28 42 22 29 |" . ".$(|B!I.(B")|
|00002a80| 20 28 3f 5c 23 20 2e 20 | 22 1b 24 28 42 21 74 1b | (?\# . |".$(B!t.|
|00002a90| 28 42 22 29 20 28 3f 5c | 24 20 2e 20 22 1b 24 28 |(B") (?\|$ . ".$(|
|00002aa0| 42 21 70 1b 28 42 22 29 | 20 28 3f 5c 25 20 2e 20 |B!p.(B")| (?\% . |
|00002ab0| 22 1b 24 28 42 21 73 1b | 28 42 22 29 20 28 3f 5c |".$(B!s.|(B") (?\|
|00002ac0| 26 20 2e 20 22 1b 24 28 | 42 21 75 1b 28 42 22 29 |& . ".$(|B!u.(B")|
|00002ad0| 20 28 3f 5c 27 20 2e 20 | 22 1b 24 28 42 21 47 1b | (?\' . |".$(B!G.|
|00002ae0| 28 42 22 29 20 28 3f 5c | 28 20 2e 20 22 1b 24 28 |(B") (?\|( . ".$(|
|00002af0| 42 21 4a 1b 28 42 22 29 | 20 28 3f 5c 29 20 2e 20 |B!J.(B")| (?\) . |
|00002b00| 22 1b 24 28 42 21 4b 1b | 28 42 22 29 20 28 3f 5c |".$(B!K.|(B") (?\|
|00002b10| 2a 20 2e 20 22 1b 24 28 | 42 21 76 1b 28 42 22 29 |* . ".$(|B!v.(B")|
|00002b20| 20 28 3f 5c 2b 20 2e 20 | 22 1b 24 28 42 21 5c 1b | (?\+ . |".$(B!\.|
|00002b30| 28 42 22 29 20 28 3f 5c | 2c 20 2e 20 22 1b 24 28 |(B") (?\|, . ".$(|
|00002b40| 42 21 24 1b 28 42 22 29 | 20 28 3f 5c 2d 20 2e 20 |B!$.(B")| (?\- . |
|00002b50| 22 1b 24 28 42 21 5d 1b | 28 42 22 29 20 28 3f 5c |".$(B!].|(B") (?\|
|00002b60| 2e 20 2e 20 22 1b 24 28 | 42 21 25 1b 28 42 22 29 |. . ".$(|B!%.(B")|
|00002b70| 20 28 3f 5c 2f 20 2e 20 | 22 1b 24 28 42 21 3f 1b | (?\/ . |".$(B!?.|
|00002b80| 28 42 22 29 20 28 3f 5c | 3a 20 2e 20 22 1b 24 28 |(B") (?\|: . ".$(|
|00002b90| 42 21 27 1b 28 42 22 29 | 20 28 3f 5c 3b 20 2e 20 |B!'.(B")| (?\; . |
|00002ba0| 22 1b 24 28 42 21 28 1b | 28 42 22 29 20 28 3f 5c |".$(B!(.|(B") (?\|
|00002bb0| 3c 20 2e 20 22 1b 24 28 | 42 21 63 1b 28 42 22 29 |< . ".$(|B!c.(B")|
|00002bc0| 20 28 3f 5c 3d 20 2e 20 | 22 1b 24 28 42 21 61 1b | (?\= . |".$(B!a.|
|00002bd0| 28 42 22 29 20 28 3f 5c | 3e 20 2e 20 22 1b 24 28 |(B") (?\|> . ".$(|
|00002be0| 42 21 64 1b 28 42 22 29 | 20 28 3f 5c 3f 20 2e 20 |B!d.(B")| (?\? . |
|00002bf0| 22 1b 24 28 42 21 29 1b | 28 42 22 29 20 28 3f 5c |".$(B!).|(B") (?\|
|00002c00| 40 20 2e 20 22 1b 24 28 | 42 21 77 1b 28 42 22 29 |@ . ".$(|B!w.(B")|
|00002c10| 20 28 3f 5c 5b 20 2e 20 | 22 1b 24 28 42 21 4e 1b | (?\[ . |".$(B!N.|
|00002c20| 28 42 22 29 20 28 3f 5c | 5c 20 2e 20 22 1b 24 28 |(B") (?\|\ . ".$(|
|00002c30| 42 21 6f 1b 28 42 22 29 | 20 28 3f 5c 5d 20 2e 20 |B!o.(B")| (?\] . |
|00002c40| 22 1b 24 28 42 21 4f 1b | 28 42 22 29 20 28 3f 5e |".$(B!O.|(B") (?^|
|00002c50| 20 2e 20 22 1b 24 28 42 | 21 30 1b 28 42 22 29 20 | . ".$(B|!0.(B") |
|00002c60| 28 3f 5c 5f 20 2e 20 22 | 1b 24 28 42 21 32 1b 28 |(?\_ . "|.$(B!2.(|
|00002c70| 42 22 29 20 28 3f 5c 7b | 20 2e 20 22 1b 24 28 42 |B") (?\{| . ".$(B|
|00002c80| 21 50 1b 28 42 22 29 20 | 28 3f 5c 7c 20 2e 20 22 |!P.(B") |(?\| . "|
|00002c90| 1b 24 28 42 21 43 1b 28 | 42 22 29 20 28 3f 5c 7d |.$(B!C.(|B") (?\}|
|00002ca0| 20 2e 20 22 1b 24 28 42 | 21 51 1b 28 42 22 29 20 | . ".$(B|!Q.(B") |
|00002cb0| 28 3f 5c 7e 20 2e 20 22 | 1b 24 28 42 21 31 1b 28 |(?\~ . "|.$(B!1.(|
|00002cc0| 42 22 29 20 28 3f 5c 60 | 20 2e 20 22 1b 24 28 42 |B") (?\`| . ".$(B|
|00002cd0| 21 46 1b 28 42 22 29 29 | 20 63 75 72 72 65 6e 74 |!F.(B"))| current|
|00002ce0| 2d 6c 6f 61 64 2d 6c 69 | 73 74 5d 20 32 29 0a 28 |-load-li|st] 2).(|
|00002cf0| 64 65 66 61 6c 69 61 73 | 20 27 72 6f 6d 61 2d 6b |defalias| 'roma-k|
|00002d00| 61 6e 61 2d 72 65 67 69 | 6f 6e 20 23 5b 28 73 74 |ana-regi|on #[(st|
|00002d10| 61 72 74 20 65 6e 64 29 | 20 22 c0 09 5c 6e c3 c4 |art end)| "..\n..|
|00002d20| c5 21 24 87 22 20 5b 69 | 74 73 3a 74 72 61 6e 73 |.!$." [i|ts:trans|
|00002d30| 6c 61 74 65 2d 72 65 67 | 69 6f 6e 20 73 74 61 72 |late-reg|ion star|
|00002d40| 74 20 65 6e 64 20 6e 69 | 6c 20 69 74 73 3a 67 65 |t end ni|l its:ge|
|00002d50| 74 2d 6d 6f 64 65 2d 6d | 61 70 20 22 72 6f 6d 61 |t-mode-m|ap "roma|
|00002d60| 2d 6b 61 6e 61 22 5d 20 | 36 20 6e 69 6c 20 22 72 |-kana"] |6 nil "r|
|00002d70| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |"]).(def|alias 'r|
|00002d80| 6f 6d 61 2d 6b 61 6e 61 | 2d 70 61 72 61 67 72 61 |oma-kana|-paragra|
|00002d90| 70 68 20 23 5b 6e 69 6c | 20 22 8a c0 20 88 60 19 |ph #[nil| ".. .`.|
|00002da0| c2 20 88 c3 60 09 5c 22 | 2a 87 22 20 5b 66 6f 72 |. ..`.\"|*." [for|
|00002db0| 77 61 72 64 2d 70 61 72 | 61 67 72 61 70 68 20 65 |ward-par|agraph e|
|00002dc0| 6e 64 20 62 61 63 6b 77 | 61 72 64 2d 70 61 72 61 |nd backw|ard-para|
|00002dd0| 67 72 61 70 68 20 72 6f | 6d 61 2d 6b 61 6e 61 2d |graph ro|ma-kana-|
|00002de0| 72 65 67 69 6f 6e 5d 20 | 33 20 22 5c 0a 72 6f 6d |region] |3 "\.rom|
|00002df0| 61 2d 6b 61 6e 61 20 20 | 70 61 72 61 67 72 61 70 |a-kana |paragrap|
|00002e00| 68 20 61 74 20 6f 72 20 | 61 66 74 65 72 20 70 6f |h at or |after po|
|00002e10| 69 6e 74 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |int." ni|l]).(def|
|00002e20| 61 6c 69 61 73 20 27 72 | 6f 6d 61 2d 6b 61 6e 61 |alias 'r|oma-kana|
|00002e30| 2d 73 65 6e 74 65 6e 63 | 65 20 23 5b 6e 69 6c 20 |-sentenc|e #[nil |
|00002e40| 22 8a c0 20 88 60 19 c2 | 20 88 c3 60 09 5c 22 2a |".. .`..| ..`.\"*|
|00002e50| 87 22 20 5b 66 6f 72 77 | 61 72 64 2d 73 65 6e 74 |." [forw|ard-sent|
|00002e60| 65 6e 63 65 20 65 6e 64 | 20 62 61 63 6b 77 61 72 |ence end| backwar|
|00002e70| 64 2d 73 65 6e 74 65 6e | 63 65 20 72 6f 6d 61 2d |d-senten|ce roma-|
|00002e80| 6b 61 6e 61 2d 72 65 67 | 69 6f 6e 5d 20 33 20 22 |kana-reg|ion] 3 "|
|00002e90| 5c 0a 72 6f 6d 61 2d 6b | 61 6e 61 20 20 73 65 6e |\.roma-k|ana sen|
|00002ea0| 74 65 6e 63 65 20 61 74 | 20 6f 72 20 61 66 74 65 |tence at| or afte|
|00002eb0| 72 20 70 6f 69 6e 74 2e | 22 20 6e 69 6c 5d 29 0a |r point.|" nil]).|
|00002ec0| 28 64 65 66 61 6c 69 61 | 73 20 27 72 6f 6d 61 2d |(defalia|s 'roma-|
|00002ed0| 6b 61 6e 61 2d 77 6f 72 | 64 20 23 5b 6e 69 6c 20 |kana-wor|d #[nil |
|00002ee0| 22 8a c0 c1 c2 c3 23 88 | 60 1c c5 c6 c2 c3 23 88 |".....#.|`.....#.|
|00002ef0| c7 0c 60 5c 22 2a 87 22 | 20 5b 72 65 2d 73 65 61 |..`\"*."| [re-sea|
|00002f00| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 22 5c 5c |rch-back|ward "\\|
|00002f10| 62 5c 5c 77 22 20 6e 69 | 6c 20 74 20 73 74 61 72 |b\\w" ni|l t star|
|00002f20| 74 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |t re-sea|rch-forw|
|00002f30| 61 72 64 20 22 5c 5c 77 | 5c 5c 62 22 20 72 6f 6d |ard "\\w|\\b" rom|
|00002f40| 61 2d 6b 61 6e 61 2d 72 | 65 67 69 6f 6e 5d 20 34 |a-kana-r|egion] 4|
|00002f50| 20 22 5c 0a 72 6f 6d 61 | 2d 6b 61 6e 61 20 77 6f | "\.roma|-kana wo|
|00002f60| 72 64 20 61 74 20 6f 72 | 20 61 66 74 65 72 20 70 |rd at or| after p|
|00002f70| 6f 69 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |oint." n|il]).(de|
|00002f80| 66 61 6c 69 61 73 20 27 | 72 6f 6d 61 2d 6b 61 6e |falias '|roma-kan|
|00002f90| 6a 69 2d 72 65 67 69 6f | 6e 20 23 5b 28 73 74 61 |ji-regio|n #[(sta|
|00002fa0| 72 74 20 65 6e 64 29 20 | 22 c0 09 5c 6e 5c 22 88 |rt end) |"..\n\".|
|00002fb0| 8c 09 60 7d 88 65 62 88 | c3 c4 c5 5c 22 88 64 62 |..`}.eb.|...\".db|
|00002fc0| 88 29 c6 09 60 5c 22 87 | 22 20 5b 72 6f 6d 61 2d |.)..`\".|" [roma-|
|00002fd0| 6b 61 6e 61 2d 72 65 67 | 69 6f 6e 20 73 74 61 72 |kana-reg|ion star|
|00002fe0| 74 20 65 6e 64 20 72 65 | 70 6c 61 63 65 2d 72 65 |t end re|place-re|
|00002ff0| 67 65 78 70 20 22 5c 5c | 28 1b 24 28 42 21 21 1b |gexp "\\|(.$(B!!.|
|00003000| 28 42 5c 5c 7c 20 5c 5c | 29 22 20 22 22 20 68 65 |(B\\| \\|)" "" he|
|00003010| 6e 6b 61 6e 2d 72 65 67 | 69 6f 6e 2d 69 6e 74 65 |nkan-reg|ion-inte|
|00003020| 72 6e 61 6c 5d 20 33 20 | 6e 69 6c 20 22 72 22 5d |rnal] 3 |nil "r"]|
|00003030| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 6f 6d |).(defal|ias 'rom|
|00003040| 61 2d 6b 61 6e 6a 69 2d | 70 61 72 61 67 72 61 70 |a-kanji-|paragrap|
|00003050| 68 20 23 5b 6e 69 6c 20 | 22 8a c0 20 88 60 19 c2 |h #[nil |".. .`..|
|00003060| 20 88 c3 60 09 5c 22 2a | 87 22 20 5b 66 6f 72 77 | ..`.\"*|." [forw|
|00003070| 61 72 64 2d 70 61 72 61 | 67 72 61 70 68 20 65 6e |ard-para|graph en|
|00003080| 64 20 62 61 63 6b 77 61 | 72 64 2d 70 61 72 61 67 |d backwa|rd-parag|
|00003090| 72 61 70 68 20 72 6f 6d | 61 2d 6b 61 6e 6a 69 2d |raph rom|a-kanji-|
|000030a0| 72 65 67 69 6f 6e 5d 20 | 33 20 22 5c 0a 72 6f 6d |region] |3 "\.rom|
|000030b0| 61 2d 6b 61 6e 6a 69 20 | 20 70 61 72 61 67 72 61 |a-kanji | paragra|
|000030c0| 70 68 20 61 74 20 6f 72 | 20 61 66 74 65 72 20 70 |ph at or| after p|
|000030d0| 6f 69 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |oint." n|il]).(de|
|000030e0| 66 61 6c 69 61 73 20 27 | 72 6f 6d 61 2d 6b 61 6e |falias '|roma-kan|
|000030f0| 6a 69 2d 73 65 6e 74 65 | 6e 63 65 20 23 5b 6e 69 |ji-sente|nce #[ni|
|00003100| 6c 20 22 8a c0 20 88 60 | 19 c2 20 88 c3 60 09 5c |l ".. .`|.. ..`.\|
|00003110| 22 2a 87 22 20 5b 66 6f | 72 77 61 72 64 2d 73 65 |"*." [fo|rward-se|
|00003120| 6e 74 65 6e 63 65 20 65 | 6e 64 20 62 61 63 6b 77 |ntence e|nd backw|
|00003130| 61 72 64 2d 73 65 6e 74 | 65 6e 63 65 20 72 6f 6d |ard-sent|ence rom|
|00003140| 61 2d 6b 61 6e 6a 69 2d | 72 65 67 69 6f 6e 5d 20 |a-kanji-|region] |
|00003150| 33 20 22 5c 0a 72 6f 6d | 61 2d 6b 61 6e 6a 69 20 |3 "\.rom|a-kanji |
|00003160| 20 73 65 6e 74 65 6e 63 | 65 20 61 74 20 6f 72 20 | sentenc|e at or |
|00003170| 61 66 74 65 72 20 70 6f | 69 6e 74 2e 22 20 6e 69 |after po|int." ni|
|00003180| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |l]).(def|alias 'r|
|00003190| 6f 6d 61 2d 6b 61 6e 6a | 69 2d 77 6f 72 64 20 23 |oma-kanj|i-word #|
|000031a0| 5b 6e 69 6c 20 22 8a c0 | c1 c2 c3 23 88 60 1c c5 |[nil "..|...#.`..|
|000031b0| c6 c2 c3 23 88 c7 0c 60 | 5c 22 2a 87 22 20 5b 72 |...#...`|\"*." [r|
|000031c0| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|000031d0| 64 20 22 5c 5c 62 5c 5c | 77 22 20 6e 69 6c 20 74 |d "\\b\\|w" nil t|
|000031e0| 20 73 74 61 72 74 20 72 | 65 2d 73 65 61 72 63 68 | start r|e-search|
|000031f0| 2d 66 6f 72 77 61 72 64 | 20 22 5c 5c 77 5c 5c 62 |-forward| "\\w\\b|
|00003200| 22 20 72 6f 6d 61 2d 6b | 61 6e 6a 69 2d 72 65 67 |" roma-k|anji-reg|
|00003210| 69 6f 6e 5d 20 34 20 22 | 5c 0a 72 6f 6d 61 2d 6b |ion] 4 "|\.roma-k|
|00003220| 61 6e 6a 69 20 77 6f 72 | 64 20 61 74 20 6f 72 20 |anji wor|d at or |
|00003230| 61 66 74 65 72 20 70 6f | 69 6e 74 2e 22 20 6e 69 |after po|int." ni|
|00003240| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |l]).(def|alias 'e|
|00003250| 67 67 3a 6d 65 6d 62 65 | 72 20 23 5b 28 65 6c 74 |gg:membe|r #[(elt|
|00003260| 20 6c 69 73 74 29 20 22 | 08 ab 8c 09 08 40 6b ac | list) "|.....@k.|
|00003270| 86 08 41 89 10 ac 74 08 | 87 22 20 5b 6c 69 73 74 |..A...t.|." [list|
|00003280| 20 65 6c 74 5d 20 33 5d | 29 0a 28 62 79 74 65 2d | elt] 3]|).(byte-|
|00003290| 63 6f 64 65 20 22 c0 c1 | 21 ac 82 c2 11 c1 0b 42 |code "..|!......B|
|000032a0| 13 c0 c4 21 ac 82 c2 14 | c4 0b 42 13 c2 87 22 20 |...!....|..B..." |
|000032b0| 5b 62 6f 75 6e 64 70 20 | 69 74 73 3a 2a 6d 6f 64 |[boundp |its:*mod|
|000032c0| 65 2d 61 6c 69 73 74 2a | 20 6e 69 6c 20 63 75 72 |e-alist*| nil cur|
|000032d0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 69 |rent-loa|d-list i|
|000032e0| 74 73 3a 2a 69 6e 74 65 | 72 6e 61 6c 2d 6d 6f 64 |ts:*inte|rnal-mod|
|000032f0| 65 2d 61 6c 69 73 74 2a | 5d 20 32 29 0a 28 64 65 |e-alist*|] 2).(de|
|00003300| 66 61 6c 69 61 73 20 27 | 69 74 73 3a 67 65 74 2d |falias '|its:get-|
|00003310| 6d 6f 64 65 2d 6d 61 70 | 20 23 5b 28 6e 61 6d 65 |mode-map| #[(name|
|00003320| 29 20 22 c0 09 5c 6e 5c | 22 41 ae 85 c0 09 0b 5c |) "..\n\|"A.....\|
|00003330| 22 41 87 22 20 5b 61 73 | 73 6f 63 20 6e 61 6d 65 |"A." [as|soc name|
|00003340| 20 69 74 73 3a 2a 6d 6f | 64 65 2d 61 6c 69 73 74 | its:*mo|de-alist|
|00003350| 2a 20 69 74 73 3a 2a 69 | 6e 74 65 72 6e 61 6c 2d |* its:*i|nternal-|
|00003360| 6d 6f 64 65 2d 61 6c 69 | 73 74 2a 5d 20 33 5d 29 |mode-ali|st*] 3])|
|00003370| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 74 73 3a |.(defali|as 'its:|
|00003380| 73 65 74 2d 6d 6f 64 65 | 2d 6d 61 70 20 23 5b 28 |set-mode|-map #[(|
|00003390| 6e 61 6d 65 20 6d 61 70 | 20 26 6f 70 74 69 6f 6e |name map| &option|
|000033a0| 61 6c 20 69 6e 74 65 72 | 6e 61 6c 70 29 20 22 c0 |al inter|nalp) ".|
|000033b0| 09 5c 6e ab 83 0b aa 81 | 0c 5c 22 89 1d ab 93 0d |.\n.....|.\".....|
|000033c0| 41 89 1e 06 1b 0e 07 40 | a0 88 1b 0e 06 1b 0e 07 |A......@|........|
|000033d0| 41 a1 29 aa 98 09 1b 0e | 07 42 15 5c 6e ab 89 c8 |A.).....|.B.\n...|
|000033e0| 0b 0d 43 5c 22 89 13 aa | 87 c8 0c 0d 43 5c 22 89 |..C\"...|....C\".|
|000033f0| 14 29 87 22 20 5b 61 73 | 73 6f 63 20 6e 61 6d 65 |.)." [as|soc name|
|00003400| 20 69 6e 74 65 72 6e 61 | 6c 70 20 69 74 73 3a 2a | interna|lp its:*|
|00003410| 69 6e 74 65 72 6e 61 6c | 2d 6d 6f 64 65 2d 61 6c |internal|-mode-al|
|00003420| 69 73 74 2a 20 69 74 73 | 3a 2a 6d 6f 64 65 2d 61 |ist* its|:*mode-a|
|00003430| 6c 69 73 74 2a 20 70 6c | 61 63 65 20 6d 61 70 70 |list* pl|ace mapp|
|00003440| 6c 61 63 65 20 6d 61 70 | 20 61 70 70 65 6e 64 5d |lace map| append]|
|00003450| 20 34 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 4]).(de|falias '|
|00003460| 69 74 73 3a 67 65 74 2d | 6d 6f 64 65 2d 69 6e 64 |its:get-|mode-ind|
|00003470| 69 63 61 74 6f 72 20 23 | 5b 28 6e 61 6d 65 29 20 |icator #|[(name) |
|00003480| 22 c0 09 21 89 1a ab 85 | c3 5c 6e 21 aa 81 09 29 |"..!....|.\n!...)|
|00003490| 87 22 20 5b 69 74 73 3a | 67 65 74 2d 6d 6f 64 65 |." [its:|get-mode|
|000034a0| 2d 6d 61 70 20 6e 61 6d | 65 20 6d 61 70 20 6d 61 |-map nam|e map ma|
|000034b0| 70 2d 69 6e 64 69 63 61 | 74 6f 72 5d 20 33 5d 29 |p-indica|tor] 3])|
|000034c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 74 73 3a |.(defali|as 'its:|
|000034d0| 73 65 74 2d 6d 6f 64 65 | 2d 69 6e 64 69 63 61 74 |set-mode|-indicat|
|000034e0| 6f 72 20 23 5b 28 6e 61 | 6d 65 20 69 6e 64 69 63 |or #[(na|me indic|
|000034f0| 61 74 6f 72 29 20 22 c0 | 09 21 89 1a ab 86 c3 5c |ator) ".|.!.....\|
|00003500| 6e 0c 5c 22 aa 84 c5 09 | 0c 5c 22 29 87 22 20 5b |n.\"....|.\")." [|
|00003510| 69 74 73 3a 67 65 74 2d | 6d 6f 64 65 2d 6d 61 70 |its:get-|mode-map|
|00003520| 20 6e 61 6d 65 20 6d 61 | 70 20 6d 61 70 2d 73 65 | name ma|p map-se|
|00003530| 74 2d 69 6e 64 69 63 61 | 74 6f 72 20 69 6e 64 69 |t-indica|tor indi|
|00003540| 63 61 74 6f 72 20 69 74 | 73 2d 64 65 66 69 6e 65 |cator it|s-define|
|00003550| 2d 6d 6f 64 65 5d 20 34 | 5d 29 0a 28 62 79 74 65 |-mode] 4|]).(byte|
|00003560| 2d 63 6f 64 65 20 22 c0 | c1 21 ac 82 c2 11 c1 0b |-code ".|.!......|
|00003570| 42 13 c2 87 22 20 5b 62 | 6f 75 6e 64 70 20 69 74 |B..." [b|oundp it|
|00003580| 73 3a 2a 70 72 6f 63 65 | 73 73 69 6e 67 2d 6d 61 |s:*proce|ssing-ma|
|00003590| 70 2a 20 6e 69 6c 20 63 | 75 72 72 65 6e 74 2d 6c |p* nil c|urrent-l|
|000035a0| 6f 61 64 2d 6c 69 73 74 | 5d 20 32 29 0a 28 64 65 |oad-list|] 2).(de|
|000035b0| 66 61 6c 69 61 73 20 27 | 69 74 73 2d 64 65 66 69 |falias '|its-defi|
|000035c0| 6e 65 2d 6d 6f 64 65 20 | 23 5b 28 6e 61 6d 65 20 |ne-mode |#[(name |
|000035d0| 26 6f 70 74 69 6f 6e 61 | 6c 20 69 6e 64 69 63 61 |&optiona|l indica|
|000035e0| 74 6f 72 20 72 65 73 65 | 74 20 73 75 70 65 72 73 |tor rese|t supers|
|000035f0| 20 69 6e 74 65 72 6e 61 | 6c 70 29 20 22 c0 09 21 | interna|lp) "..!|
|00003600| ac 99 c2 c3 0c ae 81 09 | c3 c5 c0 1b 0e 06 5c 22 |........|......\"|
|00003610| 24 16 07 c8 09 1b 0e 07 | 1b 0e 09 23 88 aa ac c0 |$.......|...#....|
|00003620| 09 21 16 07 0c ab 86 ca | 1b 0e 07 0c 5c 22 88 1b |.!......|....\"..|
|00003630| 0e 0b ab 8c cc 1b 0e 07 | c3 5c 22 88 cd 1b 0e 07 |........|.\".....|
|00003640| c3 5c 22 88 1b 0e 06 ab | 8a ce 1b 0e 07 c5 c0 1b |.\".....|........|
|00003650| 0e 06 5c 22 5c 22 88 c3 | 87 22 20 5b 69 74 73 3a |..\"\"..|." [its:|
|00003660| 67 65 74 2d 6d 6f 64 65 | 2d 6d 61 70 20 6e 61 6d |get-mode|-map nam|
|00003670| 65 20 6d 61 6b 65 2d 6d | 61 70 20 6e 69 6c 20 69 |e make-m|ap nil i|
|00003680| 6e 64 69 63 61 74 6f 72 | 20 6d 61 70 63 61 72 20 |ndicator| mapcar |
|00003690| 73 75 70 65 72 73 20 69 | 74 73 3a 2a 70 72 6f 63 |supers i|ts:*proc|
|000036a0| 65 73 73 69 6e 67 2d 6d | 61 70 2a 20 69 74 73 3a |essing-m|ap* its:|
|000036b0| 73 65 74 2d 6d 6f 64 65 | 2d 6d 61 70 20 69 6e 74 |set-mode|-map int|
|000036c0| 65 72 6e 61 6c 70 20 6d | 61 70 2d 73 65 74 2d 69 |ernalp m|ap-set-i|
|000036d0| 6e 64 69 63 61 74 6f 72 | 20 72 65 73 65 74 20 6d |ndicator| reset m|
|000036e0| 61 70 2d 73 65 74 2d 73 | 74 61 74 65 20 6d 61 70 |ap-set-s|tate map|
|000036f0| 2d 73 65 74 2d 61 6c 69 | 73 74 20 6d 61 70 2d 73 |-set-ali|st map-s|
|00003700| 65 74 2d 73 75 70 65 72 | 73 5d 20 37 20 22 5c 0a |et-super|s] 7 "\.|
|00003710| 69 74 73 2d 6d 6f 64 65 | 20 4e 41 4d 45 20 1b 24 |its-mode| NAME .$|
|00003720| 28 42 24 72 44 6a 35 41 | 41 2a 42 72 24 39 24 6b |(B$rDj5A|A*Br$9$k|
|00003730| 21 25 42 3e 24 4e 1b 28 | 42 20 69 74 73 2d 6d 6f |!%B>$N.(|B its-mo|
|00003740| 64 65 20 1b 24 28 42 24 | 2c 41 2a 42 72 24 35 24 |de .$(B$|,A*Br$5$|
|00003750| 6c 24 6b 24 5e 24 47 24 | 4f 1b 28 42 20 0a 69 74 |l$k$^$G$|O.(B .it|
|00003760| 73 2d 64 65 66 72 75 6c | 65 20 1b 24 28 42 24 4a |s-defrul|e .$(B$J|
|00003770| 24 49 24 4f 1b 28 42 20 | 4e 41 4d 45 20 1b 24 28 |$I$O.(B |NAME .$(|
|00003780| 42 24 4b 42 50 24 37 24 | 46 35 2c 42 27 24 72 44 |B$KBP$7$|F5,B'$rD|
|00003790| 49 32 43 24 39 24 6b 21 | 25 1b 28 42 49 4e 44 49 |I2C$9$k!|%.(BINDI|
|000037a0| 43 41 54 4f 52 20 1b 24 | 28 42 24 2c 1b 28 42 20 |CATOR .$|(B$,.(B |
|000037b0| 6e 6f 6e 2d 6e 69 6c 20 | 0a 1b 24 28 42 24 4e 3b |non-nil |..$(B$N;|
|000037c0| 7e 24 4b 24 4f 1b 28 42 | 20 69 74 73 2d 6d 6f 64 |~$K$O.(B| its-mod|
|000037d0| 65 20 4e 41 4d 45 20 1b | 24 28 42 24 72 41 2a 42 |e NAME .|$(B$rA*B|
|000037e0| 72 24 39 24 6b 24 48 1b | 28 42 20 6d 6f 64 65 2d |r$9$k$H.|(B mode-|
|000037f0| 6c 69 6e 65 20 1b 24 28 | 42 24 4b 49 3d 3c 28 24 |line .$(|B$KI=<($|
|00003800| 35 24 6c 24 6b 21 25 1b | 28 42 52 45 53 45 54 20 |5$l$k!%.|(BRESET |
|00003810| 1b 24 28 42 24 2c 1b 28 | 42 20 0a 6e 6f 6e 2d 6e |.$(B$,.(|B .non-n|
|00003820| 69 6c 20 1b 24 28 42 24 | 4e 3b 7e 24 4b 24 4f 1b |il .$(B$|N;~$K$O.|
|00003830| 28 42 20 69 74 73 2d 6d | 6f 64 65 20 1b 24 28 42 |(B its-m|ode .$(B|
|00003840| 24 4e 44 6a 35 41 24 2c | 36 75 24 4b 24 4a 24 6b |$NDj5A$,|6u$K$J$k|
|00003850| 21 25 1b 28 42 53 55 50 | 45 52 53 20 1b 24 28 42 |!%.(BSUP|ERS .$(B|
|00003860| 24 4f 3e 65 30 4c 24 4e | 1b 28 42 20 69 74 73 2d |$O>e0L$N|.(B its-|
|00003870| 6d 6f 64 65 20 0a 1b 24 | 28 42 4c 3e 24 72 25 6a |mode ..$|(BL>$r%j|
|00003880| 25 39 25 48 24 47 3b 58 | 44 6a 24 39 24 6b 21 25 |%9%H$G;X|Dj$9$k!%|
|00003890| 1b 28 42 49 4e 54 45 52 | 4e 41 4c 50 20 1b 24 28 |.(BINTER|NALP .$(|
|000038a0| 42 24 4f 1b 28 42 20 6d | 6f 64 65 20 6e 61 6d 65 |B$O.(B m|ode name|
|000038b0| 20 1b 24 28 42 24 72 46 | 62 49 74 4c 3e 24 48 24 | .$(B$rF|bItL>$H$|
|000038c0| 39 24 6b 21 25 1b 28 42 | 0a 69 74 73 2d 64 65 66 |9$k!%.(B|.its-def|
|000038d0| 72 75 6c 65 2c 20 69 74 | 73 2d 64 65 66 72 75 6c |rule, it|s-defrul|
|000038e0| 65 2d 63 6f 6e 64 69 74 | 69 6f 6e 61 6c 2c 20 64 |e-condit|ional, d|
|000038f0| 65 66 75 6c 65 2d 73 65 | 6c 65 63 74 2d 6d 6f 64 |efule-se|lect-mod|
|00003900| 65 2d 74 65 6d 70 6f 72 | 61 6c 6c 79 20 1b 24 28 |e-tempor|ally .$(|
|00003910| 42 24 72 1b 28 42 0a 1b | 24 28 42 3b 32 3e 48 1b |B$r.(B..|$(B;2>H.|
|00003920| 28 42 22 5d 29 0a 28 70 | 75 74 20 27 66 6f 72 2d |(B"]).(p|ut 'for-|
|00003930| 65 61 63 68 20 27 6c 69 | 73 70 2d 69 6e 64 65 6e |each 'li|sp-inden|
|00003940| 74 2d 68 6f 6f 6b 20 31 | 29 0a 28 64 65 66 61 6c |t-hook 1|).(defal|
|00003950| 69 61 73 20 27 66 6f 72 | 2d 65 61 63 68 20 27 28 |ias 'for|-each '(|
|00003960| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 76 61 72 73 20 |macro . |#[(vars |
|00003970| 26 72 65 73 74 20 62 6f | 64 79 29 20 22 c0 09 c2 |&rest bo|dy) "...|
|00003980| 0b 42 5c 22 87 22 20 5b | 66 6f 72 2d 65 61 63 68 |.B\"." [|for-each|
|00003990| 2a 20 76 61 72 73 20 70 | 72 6f 67 6e 20 62 6f 64 |* vars p|rogn bod|
|000039a0| 79 5d 20 34 20 22 5c 0a | 28 66 6f 72 2d 65 61 63 |y] 4 "\.|(for-eac|
|000039b0| 68 20 28 28 56 41 52 31 | 20 4c 49 53 54 31 29 20 |h ((VAR1| LIST1) |
|000039c0| 2e 2e 2e 20 28 56 41 52 | 6e 20 4c 49 53 54 6e 29 |... (VAR|n LISTn)|
|000039d0| 29 20 2e 20 42 4f 44 59 | 29 20 1b 24 28 42 24 4f |) . BODY|) .$(B$O|
|000039e0| 4a 51 3f 74 1b 28 42 20 | 56 41 52 31 20 1b 24 28 |JQ?t.(B |VAR1 .$(|
|000039f0| 42 24 4e 43 4d 1b 28 42 | 0a 1b 24 28 42 24 72 25 |B$NCM.(B|..$(B$r%|
|00003a00| 6a 25 39 25 48 1b 28 42 | 20 4c 49 53 54 31 20 1b |j%9%H.(B| LIST1 .|
|00003a10| 24 28 42 24 4e 4d 57 41 | 47 24 4b 42 2b 47 7b 24 |$(B$NMWA|G$KB+G{$|
|00003a20| 37 21 24 21 25 21 25 21 | 25 4a 51 3f 74 1b 28 42 |7!$!%!%!|%JQ?t.(B|
|00003a30| 20 56 41 52 6e 20 1b 24 | 28 42 24 4e 43 4d 24 72 | VARn .$|(B$NCM$r|
|00003a40| 25 6a 25 39 25 48 1b 28 | 42 20 4c 49 53 54 6e 20 |%j%9%H.(|B LISTn |
|00003a50| 1b 24 28 42 24 4e 4d 57 | 1b 28 42 0a 1b 24 28 42 |.$(B$NMW|.(B..$(B|
|00003a60| 41 47 24 4b 42 2b 47 7b | 24 37 24 46 1b 28 42 20 |AG$KB+G{|$7$F.(B |
|00003a70| 42 4f 44 59 20 1b 24 28 | 42 24 72 3c 42 39 54 24 |BODY .$(|B$r<B9T$|
|00003a80| 39 24 6b 21 25 1b 28 42 | 22 5d 29 29 0a 28 64 65 |9$k!%.(B|"])).(de|
|00003a90| 66 61 6c 69 61 73 20 27 | 66 6f 72 2d 65 61 63 68 |falias '|for-each|
|00003aa0| 2a 20 23 5b 28 76 61 72 | 73 20 62 6f 64 79 29 20 |* #[(var|s body) |
|00003ab0| 22 08 ac 82 09 87 c2 c3 | 21 08 40 40 08 40 41 40 |".......|!.@@.@A@|
|00003ac0| 1c 1d 1e 06 c7 1b 0e 06 | 0c 44 0d 44 c8 1b 0e 06 |........|.D.D....|
|00003ad0| c9 0d ca 1b 0e 06 44 45 | cb 08 41 09 5c 22 c9 1b |......DE|..A.\"..|
|00003ae0| 0e 06 cc 1b 0e 06 44 45 | af 05 45 2b 87 22 20 5b |......DE|..E+." [|
|00003af0| 76 61 72 73 20 62 6f 64 | 79 20 6d 61 6b 65 2d 73 |vars bod|y make-s|
|00003b00| 79 6d 62 6f 6c 20 22 74 | 65 6d 70 22 20 76 61 6c |ymbol "t|emp" val|
|00003b10| 20 76 61 72 20 74 76 61 | 72 20 6c 65 74 20 77 68 | var tva|r let wh|
|00003b20| 69 6c 65 20 73 65 74 71 | 20 63 61 72 20 66 6f 72 |ile setq| car for|
|00003b30| 2d 65 61 63 68 2a 20 63 | 64 72 5d 20 31 30 5d 29 |-each* c|dr] 10])|
|00003b40| 0a 28 70 75 74 20 27 64 | 6f 6c 69 73 74 20 27 6c |.(put 'd|olist 'l|
|00003b50| 69 73 70 2d 69 6e 64 65 | 6e 74 2d 68 6f 6f 6b 20 |isp-inde|nt-hook |
|00003b60| 31 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 6f |1).(defa|lias 'do|
|00003b70| 6c 69 73 74 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |list '(m|acro . #|
|00003b80| 5b 28 70 61 69 72 20 26 | 72 65 73 74 20 62 6f 64 |[(pair &|rest bod|
|00003b90| 79 29 20 22 c0 09 43 c2 | 0b 42 5c 22 87 22 20 5b |y) "..C.|.B\"." [|
|00003ba0| 66 6f 72 2d 65 61 63 68 | 2a 20 70 61 69 72 20 70 |for-each|* pair p|
|00003bb0| 72 6f 67 6e 20 62 6f 64 | 79 5d 20 34 20 22 5c 0a |rogn bod|y] 4 "\.|
|00003bc0| 28 64 6f 6c 69 73 74 20 | 28 56 41 52 20 4c 49 53 |(dolist |(VAR LIS|
|00003bd0| 54 46 4f 52 4d 29 20 2e | 20 42 4f 44 59 29 20 1b |TFORM) .| BODY) .|
|00003be0| 24 28 42 24 4f 1b 28 42 | 56 41 52 20 1b 24 28 42 |$(B$O.(B|VAR .$(B|
|00003bf0| 24 4b 3d 67 3c 21 1b 28 | 42 20 4c 49 53 54 46 4f |$K=g<!.(|B LISTFO|
|00003c00| 52 4d 20 1b 24 28 42 24 | 4e 4d 57 41 47 24 72 42 |RM .$(B$|NMWAG$rB|
|00003c10| 2b 47 7b 24 37 1b 28 42 | 0a 1b 24 28 42 24 46 1b |+G{$7.(B|..$(B$F.|
|00003c20| 28 42 20 42 4f 44 59 20 | 1b 24 28 42 24 72 3c 42 |(B BODY |.$(B$r<B|
|00003c30| 39 54 24 39 24 6b 1b 28 | 42 22 5d 29 29 0a 28 64 |9T$9$k.(|B"])).(d|
|00003c40| 65 66 61 6c 69 61 73 20 | 27 69 74 73 3a 6d 61 6b |efalias |'its:mak|
|00003c50| 65 2d 73 74 61 6e 64 61 | 72 64 2d 61 63 74 69 6f |e-standa|rd-actio|
|00003c60| 6e 20 23 5b 28 6f 75 74 | 70 75 74 20 6e 65 78 74 |n #[(out|put next|
|00003c70| 29 20 22 08 3b ab 87 08 | c1 98 ab 82 c2 10 0b 3b |) ".;...|.......;|
|00003c80| ab 87 0b c1 98 ab 82 c2 | 13 08 ac 89 0b ac 82 c2 |........|........|
|00003c90| 87 c2 0b 44 87 08 3a ab | 86 c4 08 42 0b 44 87 0b |...D..:.|...B.D..|
|00003ca0| ac 82 08 87 08 0b 44 87 | 22 20 5b 6f 75 74 70 75 |......D.|" [outpu|
|00003cb0| 74 20 22 22 20 6e 69 6c | 20 6e 65 78 74 20 30 5d |t "" nil| next 0]|
|00003cc0| 20 32 20 22 5c 0a 4f 55 | 54 50 55 54 20 1b 24 28 | 2 "\.OU|TPUT .$(|
|00003cd0| 42 24 48 1b 28 42 20 4e | 45 58 54 20 1b 24 28 42 |B$H.(B N|EXT .$(B|
|00003ce0| 24 2b 24 69 24 4a 24 6b | 1b 28 42 20 73 74 61 6e |$+$i$J$k|.(B stan|
|00003cf0| 64 61 72 64 2d 61 63 74 | 69 6f 6e 20 1b 24 28 42 |dard-act|ion .$(B|
|00003d00| 24 72 3a 6e 24 6b 21 25 | 1b 28 42 22 5d 29 0a 28 |$r:n$k!%|.(B"]).(|
|00003d10| 64 65 66 61 6c 69 61 73 | 20 27 69 74 73 3a 73 74 |defalias| 'its:st|
|00003d20| 61 6e 64 61 72 64 2d 61 | 63 74 69 6f 6e 70 20 23 |andard-a|ctionp #|
|00003d30| 5b 28 61 63 74 69 6f 6e | 29 20 22 08 3b ae a4 08 |[(action|) ".;...|
|00003d40| 3a ad a0 08 40 3b ac 91 | 08 40 3a ab 87 c1 08 40 |:...@;..|.@:....@|
|00003d50| 40 21 ac 85 08 40 3f ad | 8a 08 41 40 3f ae 84 08 |@!...@?.|..A@?...|
|00003d60| 41 40 3b 87 22 20 5b 61 | 63 74 69 6f 6e 20 63 68 |A@;." [a|ction ch|
|00003d70| 61 72 61 63 74 65 72 70 | 5d 20 32 20 22 5c 0a 41 |aracterp|] 2 "\.A|
|00003d80| 43 49 54 49 4f 4e 20 1b | 24 28 42 24 2c 1b 28 42 |CITION .|$(B$,.(B|
|00003d90| 20 73 74 61 6e 64 61 72 | 64 2d 61 63 74 69 6f 6e | standar|d-action|
|00003da0| 20 1b 24 28 42 24 47 24 | 22 24 6b 24 2b 24 49 24 | .$(B$G$|"$k$+$I$|
|00003db0| 26 24 2b 24 72 48 3d 44 | 6a 24 39 24 6b 21 25 1b |&$+$rH=D|j$9$k!%.|
|00003dc0| 28 42 22 5d 29 0a 28 64 | 65 66 76 61 72 20 69 74 |(B"]).(d|efvar it|
|00003dd0| 73 3a 6d 61 6b 65 2d 74 | 65 72 6d 69 6e 61 6c 2d |s:make-t|erminal-|
|00003de0| 73 74 61 74 65 20 27 69 | 74 73 3a 64 65 66 61 75 |state 'i|ts:defau|
|00003df0| 6c 74 2d 6d 61 6b 65 2d | 74 65 72 6d 69 6e 61 6c |lt-make-|terminal|
|00003e00| 2d 73 74 61 74 65 20 22 | 5c 0a 1b 24 28 42 3d 2a |-state "|\..$(B=*|
|00003e10| 43 3c 24 4e 3e 75 42 56 | 24 47 24 4e 49 3d 3c 28 |C<$N>uBV|$G$NI=<(|
|00003e20| 24 72 3a 6e 40 2e 24 39 | 24 6b 34 58 3f 74 24 72 |$r:n@.$9|$k4X?t$r|
|00003e30| 3b 58 44 6a 24 39 24 6b | 1b 28 42 2e 20 1b 24 28 |;XDj$9$k|.(B. .$(|
|00003e40| 42 34 58 3f 74 24 4f 1b | 28 42 20 6d 61 70 20 69 |B4X?t$O.|(B map i|
|00003e50| 6e 70 75 74 0a 61 63 74 | 69 6f 6e 20 73 74 61 74 |nput.act|ion stat|
|00003e60| 65 20 1b 24 28 42 24 72 | 30 7a 3f 74 24 48 24 37 |e .$(B$r|0z?t$H$7|
|00003e70| 24 46 38 46 24 50 24 6c | 21 24 3e 75 42 56 49 3d |$F8F$P$l|!$>uBVI=|
|00003e80| 3c 28 24 4e 4a 38 3b 7a | 4e 73 24 72 4a 56 24 39 |<($NJ8;z|Ns$rJV$9|
|00003e90| 21 25 1b 28 42 22 29 0a | 28 64 65 66 61 6c 69 61 |!%.(B").|(defalia|
|00003ea0| 73 20 27 69 74 73 3a 64 | 65 66 61 75 6c 74 2d 6d |s 'its:d|efault-m|
|00003eb0| 61 6b 65 2d 74 65 72 6d | 69 6e 61 6c 2d 73 74 61 |ake-term|inal-sta|
|00003ec0| 74 65 20 23 5b 28 6d 61 | 70 20 69 6e 70 75 74 20 |te #[(ma|p input |
|00003ed0| 61 63 74 69 6f 6e 20 73 | 74 61 74 65 29 20 22 08 |action s|tate) ".|
|00003ee0| ab 82 08 87 09 87 22 20 | 5b 73 74 61 74 65 20 69 |......" |[state i|
|00003ef0| 6e 70 75 74 5d 20 31 5d | 29 0a 28 64 65 66 61 6c |nput] 1]|).(defal|
|00003f00| 69 61 73 20 27 69 74 73 | 3a 6d 61 6b 65 2d 74 65 |ias 'its|:make-te|
|00003f10| 72 6d 69 6e 61 6c 2d 73 | 74 61 74 65 2d 68 61 6e |rminal-s|tate-han|
|00003f20| 67 75 6c 20 23 5b 28 6d | 61 70 20 69 6e 70 75 74 |gul #[(m|ap input|
|00003f30| 20 61 63 74 69 6f 6e 20 | 73 74 61 74 65 29 20 22 | action |state) "|
|00003f40| c0 09 21 ab 84 c2 09 21 | 87 c3 87 22 20 5b 69 74 |..!....!|..." [it|
|00003f50| 73 3a 73 74 61 6e 64 61 | 72 64 2d 61 63 74 69 6f |s:standa|rd-actio|
|00003f60| 6e 70 20 61 63 74 69 6f | 6e 20 61 63 74 69 6f 6e |np actio|n action|
|00003f70| 2d 6f 75 74 70 75 74 20 | 6e 69 6c 5d 20 32 5d 29 |-output |nil] 2])|
|00003f80| 0a 28 64 65 66 76 61 72 | 20 69 74 73 3a 6d 61 6b |.(defvar| its:mak|
|00003f90| 65 2d 6e 6f 6e 2d 74 65 | 72 6d 69 6e 61 6c 2d 73 |e-non-te|rminal-s|
|00003fa0| 74 61 74 65 20 27 69 74 | 73 3a 64 65 66 61 75 6c |tate 'it|s:defaul|
|00003fb0| 74 2d 6d 61 6b 65 2d 73 | 74 61 6e 64 61 72 64 2d |t-make-s|tandard-|
|00003fc0| 6e 6f 6e 2d 74 65 72 6d | 69 6e 61 6c 2d 73 74 61 |non-term|inal-sta|
|00003fd0| 74 65 20 22 5c 0a 1b 24 | 28 42 48 73 3d 2a 43 3c |te "\..$|(BHs=*C<|
|00003fe0| 24 4e 3e 75 42 56 24 47 | 24 4e 49 3d 3c 28 24 72 |$N>uBV$G|$NI=<($r|
|00003ff0| 3a 6e 40 2e 24 39 24 6b | 34 58 3f 74 24 72 3b 58 |:n@.$9$k|4X?t$r;X|
|00004000| 44 6a 24 39 24 6b 21 25 | 34 58 3f 74 24 4f 1b 28 |Dj$9$k!%|4X?t$O.(|
|00004010| 42 20 6d 61 70 20 69 6e | 70 75 74 20 1b 24 28 42 |B map in|put .$(B|
|00004020| 24 72 1b 28 42 0a 1b 24 | 28 42 30 7a 3f 74 24 48 |$r.(B..$|(B0z?t$H|
|00004030| 24 37 24 46 38 46 24 50 | 24 6c 21 24 3e 75 42 56 |$7$F8F$P|$l!$>uBV|
|00004040| 49 3d 3c 28 24 4e 4a 38 | 3b 7a 4e 73 24 72 4a 56 |I=<($NJ8|;zNs$rJV|
|00004050| 24 39 1b 28 42 22 29 0a | 28 64 65 66 61 6c 69 61 |$9.(B").|(defalia|
|00004060| 73 20 27 69 74 73 3a 64 | 65 66 61 75 6c 74 2d 6d |s 'its:d|efault-m|
|00004070| 61 6b 65 2d 73 74 61 6e | 64 61 72 64 2d 6e 6f 6e |ake-stan|dard-non|
|00004080| 2d 74 65 72 6d 69 6e 61 | 6c 2d 73 74 61 74 65 20 |-termina|l-state |
|00004090| 23 5b 28 6d 61 70 20 69 | 6e 70 75 74 29 20 22 c0 |#[(map i|nput) ".|
|000040a0| 09 21 c2 0b 89 47 53 48 | 21 50 87 22 20 5b 6d 61 |.!...GSH|!P." [ma|
|000040b0| 70 2d 73 74 61 74 65 2d | 73 74 72 69 6e 67 20 6d |p-state-|string m|
|000040c0| 61 70 20 63 68 61 72 2d | 74 6f 2d 73 74 72 69 6e |ap char-|to-strin|
|000040d0| 67 20 69 6e 70 75 74 5d | 20 34 20 22 5c 0a 20 2a |g input]| 4 "\. *|
|000040e0| 2a 2a 2a 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |***"]).(|defalias|
|000040f0| 20 27 69 74 73 2d 64 65 | 66 72 75 6c 65 20 23 5b | 'its-de|frule #[|
|00004100| 28 69 6e 70 75 74 20 6f | 75 74 70 75 74 20 26 6f |(input o|utput &o|
|00004110| 70 74 69 6f 6e 61 6c 20 | 6e 65 78 74 20 73 74 61 |ptional |next sta|
|00004120| 74 65 20 6d 61 70 29 20 | 22 c0 09 c2 0b 0c 5c 22 |te map) |".....\"|
|00004130| 0d 1b 0e 06 3b ab 84 1b | 0e 06 aa 82 1b 0e 07 24 |....;...|.......$|
|00004140| 87 22 20 5b 69 74 73 2d | 64 65 66 72 75 6c 65 2a |." [its-|defrule*|
|00004150| 20 69 6e 70 75 74 20 69 | 74 73 3a 6d 61 6b 65 2d | input i|ts:make-|
|00004160| 73 74 61 6e 64 61 72 64 | 2d 61 63 74 69 6f 6e 20 |standard|-action |
|00004170| 6f 75 74 70 75 74 20 6e | 65 78 74 20 73 74 61 74 |output n|ext stat|
|00004180| 65 20 6d 61 70 20 69 74 | 73 3a 2a 70 72 6f 63 65 |e map it|s:*proce|
|00004190| 73 73 69 6e 67 2d 6d 61 | 70 2a 5d 20 35 20 22 5c |ssing-ma|p*] 5 "\|
|000041a0| 0a 49 4e 50 55 54 20 1b | 24 28 42 24 2c 46 7e 4e |.INPUT .|$(B$,F~N|
|000041b0| 4f 24 35 24 6c 24 6b 24 | 48 1b 28 42 20 4f 55 54 |O$5$l$k$|H.(B OUT|
|000041c0| 50 55 54 20 1b 24 28 42 | 24 4b 4a 51 34 39 24 39 |PUT .$(B|$KJQ49$9|
|000041d0| 24 6b 21 25 1b 28 42 4e | 45 58 54 20 1b 24 28 42 |$k!%.(BN|EXT .$(B|
|000041e0| 24 2c 1b 28 42 20 6e 69 | 6c 20 1b 24 28 42 24 47 |$,.(B ni|l .$(B$G|
|000041f0| 24 4a 24 24 24 48 24 2d | 24 4f 4a 51 1b 28 42 0a |$J$$$H$-|$OJQ.(B.|
|00004200| 1b 24 28 42 34 39 24 37 | 24 3f 38 65 24 4b 1b 28 |.$(B49$7|$?8e$K.(|
|00004210| 42 20 4e 45 58 54 20 1b | 24 28 42 24 2c 46 7e 4e |B NEXT .|$(B$,F~N|
|00004220| 4f 24 35 24 6c 24 3f 24 | 68 24 26 24 4b 4a 51 34 |O$5$l$?$|h$&$KJQ4|
|00004230| 39 24 72 42 33 24 31 24 | 6b 21 25 1b 28 42 49 4e |9$rB3$1$|k!%.(BIN|
|00004240| 50 55 54 1b 24 28 42 24 | 2c 46 7e 4e 4f 24 35 24 |PUT.$(B$|,F~NO$5$|
|00004250| 6c 24 3f 3b 7e 45 40 1b | 28 42 0a 1b 24 28 42 24 |l$?;~E@.|(B..$(B$|
|00004260| 47 4a 51 34 39 24 2c 33 | 4e 44 6a 24 37 24 46 24 |GJQ49$,3|NDj$7$F$|
|00004270| 24 24 4a 24 24 3b 7e 24 | 4f 1b 28 42 20 53 54 41 |$$J$$;~$|O.(B STA|
|00004280| 54 45 20 1b 24 28 42 24 | 72 25 55 25 27 25 73 25 |TE .$(B$|r%U%'%s%|
|00004290| 39 3e 65 24 4b 49 3d 3c | 28 24 39 24 6b 21 25 4a |9>e$KI=<|($9$k!%J|
|000042a0| 51 34 39 24 2c 33 4e 44 | 6a 24 37 1b 28 42 0a 1b |Q49$,3ND|j$7.(B..|
|000042b0| 24 28 42 24 46 24 24 24 | 4a 24 24 3b 7e 24 4b 49 |$(B$F$$$|J$$;~$KI|
|000042c0| 3d 3c 28 24 39 24 6b 4a | 38 3b 7a 4e 73 24 4f 4a |=<($9$kJ|8;zNs$OJ|
|000042d0| 51 3f 74 1b 28 42 20 69 | 74 73 3a 6d 61 6b 65 2d |Q?t.(B i|ts:make-|
|000042e0| 74 65 72 6d 69 6e 61 6c | 2d 73 74 61 74 65 20 1b |terminal|-state .|
|000042f0| 24 28 42 24 2a 24 68 24 | 53 1b 28 42 20 1b 24 28 |$(B$*$h$|S.(B .$(|
|00004300| 42 4a 51 3f 74 1b 28 42 | 20 0a 69 74 73 3a 6d 61 |BJQ?t.(B| .its:ma|
|00004310| 6b 65 2d 6e 6f 6e 2d 74 | 65 72 6d 69 6e 61 6c 2d |ke-non-t|erminal-|
|00004320| 73 74 61 74 65 20 1b 24 | 28 42 24 4b 3b 58 3c 28 |state .$|(B$K;X<(|
|00004330| 24 35 24 6c 24 3f 34 58 | 3f 74 24 4b 24 68 24 43 |$5$l$?4X|?t$K$h$C|
|00004340| 24 46 40 38 40 2e 24 35 | 24 6c 24 6b 21 25 4a 51 |$F@8@.$5|$l$k!%JQ|
|00004350| 34 39 35 2c 1b 28 42 0a | 1b 24 28 42 42 27 24 4f |495,.(B.|.$(BB'$O|
|00004360| 1b 28 42 20 4d 41 50 20 | 1b 24 28 42 24 47 3b 58 |.(B MAP |.$(B$G;X|
|00004370| 44 6a 24 35 24 6c 24 3f | 4a 51 34 39 49 3d 24 4b |Dj$5$l$?|JQ49I=$K|
|00004380| 45 50 4f 3f 24 35 24 6c | 24 6b 21 25 1b 28 42 4d |EPO?$5$l|$k!%.(BM|
|00004390| 41 50 20 1b 24 28 42 24 | 2c 1b 28 42 20 6e 69 6c |AP .$(B$|,.(B nil|
|000043a0| 20 1b 24 28 42 24 4e 3e | 6c 39 67 24 4f 24 62 24 | .$(B$N>|l9g$O$b$|
|000043b0| 43 24 48 24 62 3a 47 1b | 28 42 0a 1b 24 28 42 36 |C$H$b:G.|(B..$(B6|
|000043c0| 61 24 4b 1b 28 42 20 69 | 74 73 2d 64 65 66 69 6e |a$K.(B i|ts-defin|
|000043d0| 65 2d 6d 6f 64 65 20 1b | 24 28 42 24 35 24 6c 24 |e-mode .|$(B$5$l$|
|000043e0| 3f 4a 51 34 39 49 3d 24 | 4b 45 50 4f 3f 24 35 24 |?JQ49I=$|KEPO?$5$|
|000043f0| 6c 24 6b 21 25 24 4a 24 | 2a 1b 28 42 20 4f 55 54 |l$k!%$J$|*.(B OUT|
|00004400| 50 55 54 20 1b 24 28 42 | 24 2c 1b 28 42 20 6e 69 |PUT .$(B|$,.(B ni|
|00004410| 6c 20 1b 24 28 42 24 4e | 3e 6c 1b 28 42 0a 1b 24 |l .$(B$N|>l.(B..$|
|00004420| 28 42 39 67 24 4f 1b 28 | 42 20 49 4e 50 55 54 20 |(B9g$O.(|B INPUT |
|00004430| 1b 24 28 42 24 4b 42 50 | 24 39 24 6b 4a 51 34 39 |.$(B$KBP|$9$kJQ49|
|00004440| 35 2c 42 27 24 2c 3a 6f | 3d 7c 24 35 24 6c 24 6b |5,B'$,:o|=|$5$l$k|
|00004450| 21 25 1b 28 42 22 5d 29 | 0a 28 64 65 66 61 6c 69 |!%.(B"])|.(defali|
|00004460| 61 73 20 27 69 74 73 2d | 64 65 66 72 75 6c 65 2d |as 'its-|defrule-|
|00004470| 63 6f 6e 64 69 74 69 6f | 6e 61 6c 20 27 28 6d 61 |conditio|nal '(ma|
|00004480| 63 72 6f 20 2e 20 23 5b | 28 69 6e 70 75 74 20 26 |cro . #[|(input &|
|00004490| 72 65 73 74 20 63 6f 6e | 64 73 29 20 22 c0 09 c2 |rest con|ds) "...|
|000044a0| c3 0c 42 44 45 87 22 20 | 5b 69 74 73 2d 64 65 66 |..BDE." |[its-def|
|000044b0| 72 75 6c 65 2a 20 69 6e | 70 75 74 20 71 75 6f 74 |rule* in|put quot|
|000044c0| 65 20 63 6f 6e 64 20 63 | 6f 6e 64 73 5d 20 35 20 |e cond c|onds] 5 |
|000044d0| 22 5c 0a 28 69 74 73 2d | 64 65 66 72 75 6c 65 2d |"\.(its-|defrule-|
|000044e0| 63 6f 6e 64 69 74 69 6f | 6e 61 6c 20 49 4e 50 55 |conditio|nal INPU|
|000044f0| 54 20 28 28 43 4f 4e 44 | 31 20 4f 55 54 50 55 54 |T ((COND|1 OUTPUT|
|00004500| 31 29 20 2e 2e 2e 20 28 | 43 4f 4e 44 6e 20 4f 55 |1) ... (|CONDn OU|
|00004510| 54 50 55 54 6e 29 29 29 | 1b 24 28 42 24 4f 1b 28 |TPUTn)))|.$(B$O.(|
|00004520| 42 20 0a 49 4e 50 55 54 | 20 1b 24 28 42 24 2c 46 |B .INPUT| .$(B$,F|
|00004530| 7e 4e 4f 24 35 24 6c 24 | 3f 3b 7e 24 4b 3e 72 37 |~NO$5$l$|?;~$K>r7|
|00004540| 6f 1b 28 42 20 43 4f 4e | 44 69 20 1b 24 28 42 24 |o.(B CON|Di .$(B$|
|00004550| 72 3d 67 3c 21 44 34 24 | 59 21 24 40 2e 4e 29 24 |r=g<!D4$|Y!$@.N)$|
|00004560| 37 24 3f 3b 7e 24 4b 24 | 4f 1b 28 42 20 4f 55 54 |7$?;~$K$|O.(B OUT|
|00004570| 50 55 54 69 20 1b 24 28 | 42 24 72 1b 28 42 0a 1b |PUTi .$(|B$r.(B..|
|00004580| 24 28 42 3d 50 4e 4f 24 | 39 24 6b 21 25 1b 28 42 |$(B=PNO$|9$k!%.(B|
|00004590| 22 5d 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |"])).(de|falias '|
|000045a0| 69 74 73 2d 64 65 66 72 | 75 6c 65 2d 63 6f 6e 64 |its-defr|ule-cond|
|000045b0| 69 74 69 6f 6e 61 6c 2a | 20 27 28 6d 61 63 72 6f |itional*| '(macro|
|000045c0| 20 2e 20 23 5b 28 69 6e | 70 75 74 20 73 74 61 74 | . #[(in|put stat|
|000045d0| 65 20 6d 61 70 20 26 72 | 65 73 74 20 63 6f 6e 64 |e map &r|est cond|
|000045e0| 73 29 20 22 c0 09 c2 c3 | 0c 42 44 0d 1b 0e 06 af |s) "....|.BD.....|
|000045f0| 05 87 22 20 5b 69 74 73 | 2d 64 65 66 72 75 6c 65 |.." [its|-defrule|
|00004600| 2a 20 69 6e 70 75 74 20 | 71 75 6f 74 65 20 63 6f |* input |quote co|
|00004610| 6e 64 20 63 6f 6e 64 73 | 20 73 74 61 74 65 20 6d |nd conds| state m|
|00004620| 61 70 5d 20 35 20 22 5c | 0a 28 69 74 73 2d 64 65 |ap] 5 "\|.(its-de|
|00004630| 66 72 75 6c 65 2d 63 6f | 6e 64 69 74 69 6f 6e 61 |frule-co|nditiona|
|00004640| 6c 20 49 4e 50 55 54 20 | 53 54 41 54 45 20 4d 41 |l INPUT |STATE MA|
|00004650| 50 20 28 28 43 4f 4e 44 | 31 20 4f 55 54 50 55 54 |P ((COND|1 OUTPUT|
|00004660| 31 29 20 2e 2e 2e 20 28 | 43 4f 4e 44 6e 0a 4f 55 |1) ... (|CONDn.OU|
|00004670| 54 50 55 54 6e 29 29 29 | 1b 24 28 42 24 4f 1b 28 |TPUTn)))|.$(B$O.(|
|00004680| 42 20 49 4e 50 55 54 20 | 1b 24 28 42 24 2c 46 7e |B INPUT |.$(B$,F~|
|00004690| 4e 4f 24 35 24 6c 24 3f | 3b 7e 24 4b 3e 75 42 56 |NO$5$l$?|;~$K>uBV|
|000046a0| 1b 28 42 20 53 54 41 54 | 45 20 1b 24 28 42 24 72 |.(B STAT|E .$(B$r|
|000046b0| 49 3d 3c 28 24 37 21 24 | 3e 72 37 6f 1b 28 42 20 |I=<($7!$|>r7o.(B |
|000046c0| 43 4f 4e 44 69 20 1b 24 | 28 42 24 72 1b 28 42 0a |CONDi .$|(B$r.(B.|
|000046d0| 1b 24 28 42 3d 67 3c 21 | 44 34 24 59 21 24 40 2e |.$(B=g<!|D4$Y!$@.|
|000046e0| 4e 29 24 37 24 3f 3b 7e | 24 4b 24 4f 1b 28 42 20 |N)$7$?;~|$K$O.(B |
|000046f0| 4f 55 54 50 55 54 69 20 | 1b 24 28 42 24 72 3d 50 |OUTPUTi |.$(B$r=P|
|00004700| 4e 4f 24 39 24 6b 21 25 | 1b 28 42 22 5d 29 29 0a |NO$9$k!%|.(B"])).|
|00004710| 28 64 65 66 61 6c 69 61 | 73 20 27 69 74 73 2d 64 |(defalia|s 'its-d|
|00004720| 65 66 72 75 6c 65 2d 73 | 65 6c 65 63 74 2d 6d 6f |efrule-s|elect-mo|
|00004730| 64 65 2d 74 65 6d 70 6f | 72 61 6c 6c 79 20 23 5b |de-tempo|rally #[|
|00004740| 28 69 6e 70 75 74 20 6e | 61 6d 65 29 20 22 c0 09 |(input n|ame) "..|
|00004750| c2 c3 0c 44 44 5c 22 87 | 22 20 5b 69 74 73 2d 64 |...DD\".|" [its-d|
|00004760| 65 66 72 75 6c 65 2a 20 | 69 6e 70 75 74 20 71 75 |efrule* |input qu|
|00004770| 6f 74 65 20 69 74 73 3a | 73 65 6c 65 63 74 2d 6d |ote its:|select-m|
|00004780| 6f 64 65 2d 74 65 6d 70 | 6f 72 61 6c 6c 79 20 6e |ode-temp|orally n|
|00004790| 61 6d 65 5d 20 35 20 22 | 5c 0a 49 4e 50 55 54 20 |ame] 5 "|\.INPUT |
|000047a0| 1b 24 28 42 24 2c 46 7e | 4e 4f 24 35 24 6c 24 6b |.$(B$,F~|NO$5$l$k|
|000047b0| 24 48 1b 28 42 20 74 65 | 6d 70 6f 72 61 6c 6c 79 |$H.(B te|mporally|
|000047c0| 2d 6d 6f 64 65 20 1b 24 | 28 42 24 48 24 37 24 46 |-mode .$|(B$H$7$F|
|000047d0| 1b 28 42 20 4e 41 4d 45 | 20 1b 24 28 42 24 2c 41 |.(B NAME| .$(B$,A|
|000047e0| 2a 42 72 24 35 24 6c 24 | 6b 21 25 1b 28 42 22 5d |*Br$5$l$|k!%.(B"]|
|000047f0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 74 73 |).(defal|ias 'its|
|00004800| 2d 64 65 66 72 75 6c 65 | 2a 20 23 5b 28 69 6e 70 |-defrule|* #[(inp|
|00004810| 75 74 20 61 63 74 69 6f | 6e 20 26 6f 70 74 69 6f |ut actio|n &optio|
|00004820| 6e 61 6c 20 73 74 61 74 | 65 20 6d 61 70 29 20 22 |nal stat|e map) "|
|00004830| c0 09 47 21 88 5c 6e 3b | ab 85 c3 5c 6e 21 aa 87 |..G!.\n;|...\n!..|
|00004840| 5c 6e ac 83 0c aa 81 5c | 6e 12 c5 c6 09 1b 0e 07 |\n.....\|n.......|
|00004850| 1b 0e 08 5c 6e 25 88 5c | 6e 87 22 20 5b 69 74 73 |...\n%.\|n." [its|
|00004860| 3a 72 65 73 69 7a 65 20 | 69 6e 70 75 74 20 6d 61 |:resize |input ma|
|00004870| 70 20 69 74 73 3a 67 65 | 74 2d 6d 6f 64 65 2d 6d |p its:ge|t-mode-m|
|00004880| 61 70 20 69 74 73 3a 2a | 70 72 6f 63 65 73 73 69 |ap its:*|processi|
|00004890| 6e 67 2d 6d 61 70 2a 20 | 69 74 73 2d 64 65 66 72 |ng-map* |its-defr|
|000048a0| 75 6c 65 2a 2a 20 30 20 | 61 63 74 69 6f 6e 20 73 |ule** 0 |action s|
|000048b0| 74 61 74 65 5d 20 36 5d | 29 0a 28 64 65 66 76 61 |tate] 6]|).(defva|
|000048c0| 72 20 69 74 73 3a 2a 64 | 65 66 72 75 6c 65 2d 76 |r its:*d|efrule-v|
|000048d0| 65 72 62 6f 73 65 2a 20 | 74 20 22 5c 0a 6e 69 6c |erbose* |t "\.nil|
|000048e0| 1b 24 28 42 24 4e 3e 6c | 39 67 1b 28 42 2c 20 69 |.$(B$N>l|9g.(B, i|
|000048f0| 74 73 2d 64 65 66 72 75 | 6c 65 20 1b 24 28 42 24 |ts-defru|le .$(B$|
|00004900| 4e 37 59 39 70 24 72 4d | 5e 40 29 24 39 24 6b 1b |N7Y9p$rM|^@)$9$k.|
|00004910| 28 42 22 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |(B").(de|falias '|
|00004920| 69 74 73 2d 64 65 66 72 | 75 6c 65 2a 2a 20 23 5b |its-defr|ule** #[|
|00004930| 28 69 20 69 6e 70 75 74 | 20 61 63 74 69 6f 6e 20 |(i input| action |
|00004940| 73 74 61 74 65 20 6d 61 | 70 29 20 22 08 47 09 55 |state ma|p) ".G.U|
|00004950| ab bf c2 0b c4 0d 0b 08 | 1b 0e 06 1b 0e 07 24 21 |........|......$!|
|00004960| 5c 22 88 1b 0e 08 ab 9a | c9 0b 21 ab 95 1b 0e 06 |\"......|..!.....|
|00004970| ab 89 ca cb 08 1b 0e 06 | 23 88 aa 88 ca cc 08 c9 |........|#.......|
|00004980| 0b 21 23 88 1b 0e 06 3f | ad 83 cd 0b 21 3f ad cb |.!#....?|....!?..|
|00004990| ce 0b 1b 0e 06 5c 22 88 | 0b 87 cf 0b d0 08 09 5c |.....\".|.......\|
|000049a0| 22 5c 22 ae 91 d1 1b 0e | 12 0b 08 d3 09 d4 d0 08 |"\".....|........|
|000049b0| 09 5c 22 21 5c 5c 4f 5c | 22 21 1e 15 d6 0b d0 08 |.\"!\\O\|"!......|
|000049c0| 09 5c 22 d7 09 d4 d0 08 | 09 5c 22 21 5c 5c 08 1b |.\".....|.\"!\\..|
|000049d0| 0e 06 1b 0e 07 1b 0e 15 | 25 23 88 29 c9 0b 21 3f |........|%#.)..!?|
|000049e0| ad 83 cd 0b 21 3f ad 81 | 0b 87 22 20 5b 69 6e 70 |....!?..|.." [inp|
|000049f0| 75 74 20 69 20 6d 61 70 | 2d 73 65 74 2d 73 74 61 |ut i map|-set-sta|
|00004a00| 74 65 20 6d 61 70 20 63 | 6f 65 72 63 65 2d 69 6e |te map c|oerce-in|
|00004a10| 74 65 72 6e 61 6c 2d 73 | 74 72 69 6e 67 20 69 74 |ternal-s|tring it|
|00004a20| 73 3a 6d 61 6b 65 2d 74 | 65 72 6d 69 6e 61 6c 2d |s:make-t|erminal-|
|00004a30| 73 74 61 74 65 20 61 63 | 74 69 6f 6e 20 73 74 61 |state ac|tion sta|
|00004a40| 74 65 20 69 74 73 3a 2a | 64 65 66 72 75 6c 65 2d |te its:*|defrule-|
|00004a50| 76 65 72 62 6f 73 65 2a | 20 6d 61 70 2d 61 63 74 |verbose*| map-act|
|00004a60| 69 6f 6e 20 6e 6f 74 69 | 66 79 20 22 28 69 74 73 |ion noti|fy "(its|
|00004a70| 2d 64 65 66 72 75 6c 65 | 20 5c 22 25 73 5c 22 20 |-defrule| \"%s\" |
|00004a80| 5c 22 25 73 5c 22 20 29 | 20 1b 24 28 42 24 72 3a |\"%s\" )| .$(B$r:|
|00004a90| 46 44 6a 35 41 24 37 24 | 5e 24 37 24 3f 21 25 1b |FDj5A$7$|^$7$?!%.|
|00004aa0| 28 42 22 20 22 28 69 74 | 73 2d 64 65 66 72 75 6c |(B" "(it|s-defrul|
|00004ab0| 65 20 5c 22 25 73 5c 22 | 20 5c 22 25 73 5c 22 20 |e \"%s\"| \"%s\" |
|00004ac0| 29 1b 24 28 42 24 72 3a | 6f 3d 7c 24 37 24 5e 24 |).$(B$r:|o=|$7$^$|
|00004ad0| 37 24 3f 21 25 1b 28 42 | 22 20 6d 61 70 2d 74 65 |7$?!%.(B|" map-te|
|00004ae0| 72 6d 69 6e 61 6c 70 20 | 6d 61 70 2d 73 65 74 2d |rminalp |map-set-|
|00004af0| 61 63 74 69 6f 6e 20 67 | 65 74 2d 6e 65 78 74 2d |action g|et-next-|
|00004b00| 6d 61 70 2d 6c 6f 63 61 | 6c 6c 79 20 73 72 65 66 |map-loca|lly sref|
|00004b10| 20 6d 61 6b 65 2d 6d 61 | 70 20 69 74 73 3a 6d 61 | make-ma|p its:ma|
|00004b20| 6b 65 2d 6e 6f 6e 2d 74 | 65 72 6d 69 6e 61 6c 2d |ke-non-t|erminal-|
|00004b30| 73 74 61 74 65 20 30 20 | 63 68 61 72 2d 62 79 74 |state 0 |char-byt|
|00004b40| 65 73 20 6e 65 77 6d 61 | 70 20 73 65 74 2d 6e 65 |es newma|p set-ne|
|00004b50| 78 74 2d 6d 61 70 20 69 | 74 73 2d 64 65 66 72 75 |xt-map i|ts-defru|
|00004b60| 6c 65 2a 2a 5d 20 31 30 | 5d 29 0a 28 64 65 66 61 |le**] 10|]).(defa|
|00004b70| 6c 69 61 73 20 27 6d 61 | 6b 65 2d 6d 61 70 20 23 |lias 'ma|ke-map #|
|00004b80| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 73 74 61 74 |[(&optio|nal stat|
|00004b90| 65 20 61 63 74 69 6f 6e | 20 61 6c 69 73 74 20 73 |e action| alist s|
|00004ba0| 75 70 65 72 73 29 20 22 | 08 09 5c 6e 0b 46 87 22 |upers) "|..\n.F."|
|00004bb0| 20 5b 73 74 61 74 65 20 | 61 63 74 69 6f 6e 20 61 | [state |action a|
|00004bc0| 6c 69 73 74 20 73 75 70 | 65 72 73 5d 20 34 5d 29 |list sup|ers] 4])|
|00004bd0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 61 70 2d |.(defali|as 'map-|
|00004be0| 74 6f 70 6d 61 70 2d 70 | 20 23 5b 28 6d 61 70 29 |topmap-p| #[(map)|
|00004bf0| 20 22 c0 09 21 3f 87 22 | 20 5b 6d 61 70 2d 73 74 | "..!?."| [map-st|
|00004c00| 61 74 65 20 6d 61 70 5d | 20 32 5d 29 0a 28 64 65 |ate map]| 2]).(de|
|00004c10| 66 61 6c 69 61 73 20 27 | 6d 61 70 2d 73 75 70 65 |falias '|map-supe|
|00004c20| 72 73 20 23 5b 28 6d 61 | 70 29 20 22 c0 09 38 87 |rs #[(ma|p) "..8.|
|00004c30| 22 20 5b 33 20 6d 61 70 | 5d 20 32 5d 29 0a 28 64 |" [3 map|] 2]).(d|
|00004c40| 65 66 61 6c 69 61 73 20 | 27 6d 61 70 2d 73 65 74 |efalias |'map-set|
|00004c50| 2d 73 75 70 65 72 73 20 | 23 5b 28 6d 61 70 20 76 |-supers |#[(map v|
|00004c60| 61 6c 29 20 22 c0 09 9b | 5c 6e a0 87 22 20 5b 33 |al) "...|\n.." [3|
|00004c70| 20 6d 61 70 20 76 61 6c | 5d 20 32 5d 29 0a 28 64 | map val|] 2]).(d|
|00004c80| 65 66 61 6c 69 61 73 20 | 27 6d 61 70 2d 74 65 72 |efalias |'map-ter|
|00004c90| 6d 69 6e 61 6c 70 20 23 | 5b 28 6d 61 70 29 20 22 |minalp #|[(map) "|
|00004ca0| c0 09 21 3f 87 22 20 5b | 6d 61 70 2d 61 6c 69 73 |..!?." [|map-alis|
|00004cb0| 74 20 6d 61 70 5d 20 32 | 5d 29 0a 28 64 65 66 61 |t map] 2|]).(defa|
|00004cc0| 6c 69 61 73 20 27 6d 61 | 70 2d 73 74 61 74 65 20 |lias 'ma|p-state |
|00004cd0| 23 5b 28 6d 61 70 29 20 | 22 08 40 87 22 20 5b 6d |#[(map) |".@." [m|
|00004ce0| 61 70 5d 20 31 5d 29 0a | 28 64 65 66 61 6c 69 61 |ap] 1]).|(defalia|
|00004cf0| 73 20 27 6d 61 70 2d 73 | 74 61 74 65 2d 73 74 72 |s 'map-s|tate-str|
|00004d00| 69 6e 67 20 23 5b 28 6d | 61 70 29 20 22 c0 c1 5c |ing #[(m|ap) "..\|
|00004d10| 6e 21 21 87 22 20 5b 63 | 6f 65 72 63 65 2d 73 74 |n!!." [c|oerce-st|
|00004d20| 72 69 6e 67 20 6d 61 70 | 2d 73 74 61 74 65 20 6d |ring map|-state m|
|00004d30| 61 70 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 |ap] 3]).|(defalia|
|00004d40| 73 20 27 6d 61 70 2d 73 | 65 74 2d 73 74 61 74 65 |s 'map-s|et-state|
|00004d50| 20 23 5b 28 6d 61 70 20 | 76 61 6c 29 20 22 08 09 | #[(map |val) "..|
|00004d60| a0 87 22 20 5b 6d 61 70 | 20 76 61 6c 5d 20 32 5d |.." [map| val] 2]|
|00004d70| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 61 70 |).(defal|ias 'map|
|00004d80| 2d 69 6e 64 69 63 61 74 | 6f 72 20 23 5b 28 6d 61 |-indicat|or #[(ma|
|00004d90| 70 29 20 22 c0 09 21 87 | 22 20 5b 6d 61 70 2d 61 |p) "..!.|" [map-a|
|00004da0| 63 74 69 6f 6e 20 6d 61 | 70 5d 20 32 5d 29 0a 28 |ction ma|p] 2]).(|
|00004db0| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 70 2d 73 65 |defalias| 'map-se|
|00004dc0| 74 2d 69 6e 64 69 63 61 | 74 6f 72 20 23 5b 28 6d |t-indica|tor #[(m|
|00004dd0| 61 70 20 69 6e 64 69 63 | 61 74 6f 72 29 20 22 c0 |ap indic|ator) ".|
|00004de0| 09 5c 6e 5c 22 87 22 20 | 5b 6d 61 70 2d 73 65 74 |.\n\"." |[map-set|
|00004df0| 2d 61 63 74 69 6f 6e 20 | 6d 61 70 20 69 6e 64 69 |-action |map indi|
|00004e00| 63 61 74 6f 72 5d 20 33 | 5d 29 0a 28 64 65 66 61 |cator] 3|]).(defa|
|00004e10| 6c 69 61 73 20 27 6d 61 | 70 2d 61 63 74 69 6f 6e |lias 'ma|p-action|
|00004e20| 20 23 5b 28 6d 61 70 29 | 20 22 08 41 40 87 22 20 | #[(map)| ".A@." |
|00004e30| 5b 6d 61 70 5d 20 31 5d | 29 0a 28 64 65 66 61 6c |[map] 1]|).(defal|
|00004e40| 69 61 73 20 27 6d 61 70 | 2d 73 65 74 2d 61 63 74 |ias 'map|-set-act|
|00004e50| 69 6f 6e 20 23 5b 28 6d | 61 70 20 76 61 6c 29 20 |ion #[(m|ap val) |
|00004e60| 22 08 41 09 a0 87 22 20 | 5b 6d 61 70 20 76 61 6c |".A..." |[map val|
|00004e70| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00004e80| 27 6d 61 70 2d 61 6c 69 | 73 74 20 23 5b 28 6d 61 |'map-ali|st #[(ma|
|00004e90| 70 29 20 22 c0 09 38 87 | 22 20 5b 32 20 6d 61 70 |p) "..8.|" [2 map|
|00004ea0| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00004eb0| 27 6d 61 70 2d 73 65 74 | 2d 61 6c 69 73 74 20 23 |'map-set|-alist #|
|00004ec0| 5b 28 6d 61 70 20 61 6c | 69 73 74 29 20 22 08 41 |[(map al|ist) ".A|
|00004ed0| 41 09 a0 87 22 20 5b 6d | 61 70 20 61 6c 69 73 74 |A..." [m|ap alist|
|00004ee0| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00004ef0| 27 67 65 74 2d 61 63 74 | 69 6f 6e 20 23 5b 28 6d |'get-act|ion #[(m|
|00004f00| 61 70 29 20 22 08 ad 9b | c1 08 21 1a c3 5c 6e 21 |ap) "...|..!..\n!|
|00004f10| ab 83 5c 6e aa 8e 5c 6e | 39 ab 86 c4 c5 c6 8f aa |..\n..\n|9.......|
|00004f20| 84 c4 c7 c8 8f 29 87 22 | 20 5b 6d 61 70 20 6d 61 |.....)."| [map ma|
|00004f30| 70 2d 61 63 74 69 6f 6e | 20 61 63 74 69 6f 6e 20 |p-action| action |
|00004f40| 69 74 73 3a 73 74 61 6e | 64 61 72 64 2d 61 63 74 |its:stan|dard-act|
|00004f50| 69 6f 6e 70 20 6e 69 6c | 20 28 66 75 6e 63 61 6c |ionp nil| (funcal|
|00004f60| 6c 20 61 63 74 69 6f 6e | 29 20 28 28 65 72 72 6f |l action|) ((erro|
|00004f70| 72 29 29 20 28 65 76 61 | 6c 20 61 63 74 69 6f 6e |r)) (eva|l action|
|00004f80| 29 20 28 28 65 72 72 6f | 72 29 29 5d 20 33 5d 29 |) ((erro|r))] 3])|
|00004f90| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 63 74 69 |.(defali|as 'acti|
|00004fa0| 6f 6e 2d 6f 75 74 70 75 | 74 20 23 5b 28 61 63 74 |on-outpu|t #[(act|
|00004fb0| 69 6f 6e 29 20 22 08 3b | ab 82 08 87 08 40 87 22 |ion) ".;|.....@."|
|00004fc0| 20 5b 61 63 74 69 6f 6e | 5d 20 31 5d 29 0a 28 64 | [action|] 1]).(d|
|00004fd0| 65 66 61 6c 69 61 73 20 | 27 61 63 74 69 6f 6e 2d |efalias |'action-|
|00004fe0| 6e 65 78 74 20 23 5b 28 | 61 63 74 69 6f 6e 29 20 |next #[(|action) |
|00004ff0| 22 08 3b ab 82 c1 87 08 | 41 40 87 22 20 5b 61 63 |".;.....|A@." [ac|
|00005000| 74 69 6f 6e 20 6e 69 6c | 5d 20 31 5d 29 0a 28 64 |tion nil|] 1]).(d|
|00005010| 65 66 61 6c 69 61 73 20 | 27 67 65 74 2d 6e 65 78 |efalias |'get-nex|
|00005020| 74 2d 6d 61 70 20 23 5b | 28 6d 61 70 20 63 68 29 |t-map #[|(map ch)|
|00005030| 20 22 08 c1 5c 6e 21 b7 | 41 ae ac c3 5c 6e 21 ad | "..\n!.|A...\n!.|
|00005040| a7 c4 5c 6e 21 c5 1e 06 | 89 1e 07 ab 99 c8 1b 0e |..\n!...|........|
|00005050| 07 40 08 5c 22 89 16 06 | ab 86 c5 89 16 07 aa 6d |.@.\"...|.......m|
|00005060| 1b 0e 07 41 89 16 07 ac | 67 1b 0e 06 2a 87 22 20 |...A....|g...*." |
|00005070| 5b 63 68 20 6d 61 70 2d | 61 6c 69 73 74 20 6d 61 |[ch map-|alist ma|
|00005080| 70 20 6d 61 70 2d 74 6f | 70 6d 61 70 2d 70 20 6d |p map-to|pmap-p m|
|00005090| 61 70 2d 73 75 70 65 72 | 73 20 6e 69 6c 20 72 65 |ap-super|s nil re|
|000050a0| 73 75 6c 74 20 73 75 70 | 65 72 73 20 67 65 74 2d |sult sup|ers get-|
|000050b0| 6e 65 78 74 2d 6d 61 70 | 5d 20 34 5d 29 0a 28 64 |next-map|] 4]).(d|
|000050c0| 65 66 61 6c 69 61 73 20 | 27 67 65 74 2d 6e 65 78 |efalias |'get-nex|
|000050d0| 74 2d 6d 61 70 2d 6c 6f | 63 61 6c 6c 79 20 23 5b |t-map-lo|cally #[|
|000050e0| 28 6d 61 70 20 63 68 29 | 20 22 08 c1 5c 6e 21 b7 |(map ch)| "..\n!.|
|000050f0| 41 87 22 20 5b 63 68 20 | 6d 61 70 2d 61 6c 69 73 |A." [ch |map-alis|
|00005100| 74 20 6d 61 70 5d 20 33 | 5d 29 0a 28 64 65 66 61 |t map] 3|]).(defa|
|00005110| 6c 69 61 73 20 27 73 65 | 74 2d 6e 65 78 74 2d 6d |lias 'se|t-next-m|
|00005120| 61 70 20 23 5b 28 6d 61 | 70 20 63 68 20 76 61 6c |ap #[(ma|p ch val|
|00005130| 29 20 22 08 c1 5c 6e 21 | b7 89 1b 1b ab 93 0c ab |) "..\n!|........|
|00005140| 85 0b 0c a1 aa 9b c5 5c | 6e c6 0b c1 5c 6e 21 5c |.......\|n...\n!\|
|00005150| 22 5c 22 aa 90 0c ab 8c | c5 5c 6e 08 0c 42 c1 5c |"\".....|.\n..B.\|
|00005160| 6e 21 42 5c 22 aa 81 0c | 29 87 22 20 5b 63 68 20 |n!B\"...|)." [ch |
|00005170| 6d 61 70 2d 61 6c 69 73 | 74 20 6d 61 70 20 70 6c |map-alis|t map pl|
|00005180| 61 63 65 20 76 61 6c 20 | 6d 61 70 2d 73 65 74 2d |ace val |map-set-|
|00005190| 61 6c 69 73 74 20 64 65 | 6c 71 5d 20 37 5d 29 0a |alist de|lq] 7]).|
|000051a0| 28 64 65 66 61 6c 69 61 | 73 20 27 69 74 73 3a 73 |(defalia|s 'its:s|
|000051b0| 69 6d 70 6c 65 2d 61 63 | 74 69 6f 6e 70 20 23 5b |imple-ac|tionp #[|
|000051c0| 28 61 63 74 69 6f 6e 29 | 20 22 08 3b 87 22 20 5b |(action)| ".;." [|
|000051d0| 61 63 74 69 6f 6e 5d 20 | 31 5d 29 0a 28 64 65 66 |action] |1]).(def|
|000051e0| 61 6c 69 61 73 20 27 63 | 6f 6c 6c 65 63 74 2d 73 |alias 'c|ollect-s|
|000051f0| 69 6d 70 6c 65 2d 61 63 | 74 69 6f 6e 20 23 5b 28 |imple-ac|tion #[(|
|00005200| 6d 61 70 29 20 22 c0 09 | 21 ab 8c c2 c3 09 21 21 |map) "..|!.....!!|
|00005210| ad a7 c3 09 21 43 87 c4 | 09 21 c5 1e 06 89 1e 07 |....!C..|.!......|
|00005220| ab 94 c8 c9 1b 0e 07 40 | 41 21 1b 0e 06 5c 22 16 |.......@|A!...\".|
|00005230| 06 1b 0e 07 41 89 16 07 | ac 6c 1b 0e 06 2a 87 22 |....A...|.l...*."|
|00005240| 20 5b 6d 61 70 2d 74 65 | 72 6d 69 6e 61 6c 70 20 | [map-te|rminalp |
|00005250| 6d 61 70 20 69 74 73 3a | 73 69 6d 70 6c 65 2d 61 |map its:|simple-a|
|00005260| 63 74 69 6f 6e 70 20 6d | 61 70 2d 61 63 74 69 6f |ctionp m|ap-actio|
|00005270| 6e 20 6d 61 70 2d 61 6c | 69 73 74 20 6e 69 6c 20 |n map-al|ist nil |
|00005280| 72 65 73 75 6c 74 20 61 | 6c 69 73 74 20 61 70 70 |result a|list app|
|00005290| 65 6e 64 20 63 6f 6c 6c | 65 63 74 2d 73 69 6d 70 |end coll|ect-simp|
|000052a0| 6c 65 2d 61 63 74 69 6f | 6e 5d 20 34 5d 29 0a 28 |le-actio|n] 4]).(|
|000052b0| 64 65 66 61 6c 69 61 73 | 20 27 69 74 73 3a 73 69 |defalias| 'its:si|
|000052c0| 6d 75 6c 61 74 65 2d 69 | 6e 70 75 74 20 23 5b 28 |mulate-i|nput #[(|
|000052d0| 69 20 6a 20 69 6e 70 75 | 74 20 6d 61 70 29 20 22 |i j inpu|t map) "|
|000052e0| 08 09 58 ab 94 c2 0b c4 | 0d 08 5c 22 5c 22 13 08 |..X.....|..\"\"..|
|000052f0| c6 c4 0d 08 5c 22 21 5c | 5c 89 10 aa 68 0b 87 22 |....\"!\|\...h.."|
|00005300| 20 5b 69 20 6a 20 67 65 | 74 2d 6e 65 78 74 2d 6d | [i j ge|t-next-m|
|00005310| 61 70 20 6d 61 70 20 73 | 72 65 66 20 69 6e 70 75 |ap map s|ref inpu|
|00005320| 74 20 63 68 61 72 2d 62 | 79 74 65 73 5d 20 36 5d |t char-b|ytes] 6]|
|00005330| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00005340| 21 ac 83 c2 20 11 c1 0b | 42 13 c0 c4 21 ac 83 c2 |!... ...|B...!...|
|00005350| 20 14 c4 0b 42 13 c5 0c | c6 5c 22 88 c0 c7 21 ac | ...B...|.\"...!.|
|00005360| 83 c8 16 07 c7 0b 42 13 | c0 c9 21 ac 87 ca 1b 0e |......B.|..!.....|
|00005370| 07 cb 5c 22 16 09 c9 0b | 42 13 c0 cc 21 ac 87 ca |..\"....|B...!...|
|00005380| 1b 0e 07 cb 5c 22 16 0c | cc 0b 42 13 c0 cd 21 ac |....\"..|..B...!.|
|00005390| 87 ca 1b 0e 07 ce 5c 22 | 16 0d cd 0b 42 13 c0 cf |......\"|....B...|
|000053a0| 21 ac 83 ce 16 1b 0f cf | 0b 42 13 cb 87 22 20 5b |!.......|.B..." [|
|000053b0| 62 6f 75 6e 64 70 20 69 | 74 73 3a 2a 62 75 66 66 |boundp i|ts:*buff|
|000053c0| 2d 73 2a 20 6d 61 6b 65 | 2d 6d 61 72 6b 65 72 20 |-s* make|-marker |
|000053d0| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|000053e0| 74 20 69 74 73 3a 2a 62 | 75 66 66 2d 65 2a 20 73 |t its:*b|uff-e* s|
|000053f0| 65 74 2d 6d 61 72 6b 65 | 72 2d 69 6e 73 65 72 74 |et-marke|r-insert|
|00005400| 69 6f 6e 2d 74 79 70 65 | 20 74 20 69 74 73 3a 2a |ion-type| t its:*|
|00005410| 6d 61 78 6c 65 76 65 6c | 2a 20 31 30 20 69 74 73 |maxlevel|* 10 its|
|00005420| 3a 2a 6d 61 70 73 2a 20 | 6d 61 6b 65 2d 76 65 63 |:*maps* |make-vec|
|00005430| 74 6f 72 20 6e 69 6c 20 | 69 74 73 3a 2a 61 63 74 |tor nil |its:*act|
|00005440| 69 6f 6e 73 2a 20 69 74 | 73 3a 2a 69 6e 70 75 74 |ions* it|s:*input|
|00005450| 73 2a 20 30 20 69 74 73 | 3a 2a 6c 65 76 65 6c 2a |s* 0 its|:*level*|
|00005460| 5d 20 33 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 3).(de|falias '|
|00005470| 69 74 73 3a 72 65 73 69 | 7a 65 20 23 5b 28 73 69 |its:resi|ze #[(si|
|00005480| 7a 65 29 20 22 08 09 58 | ad 93 09 10 c2 09 c3 5c |ze) "..X|.......\|
|00005490| 22 14 c2 09 c3 5c 22 15 | c2 09 c6 5c 22 89 16 07 |"....\".|...\"...|
|000054a0| 87 22 20 5b 69 74 73 3a | 2a 6d 61 78 6c 65 76 65 |." [its:|*maxleve|
|000054b0| 6c 2a 20 73 69 7a 65 20 | 6d 61 6b 65 2d 76 65 63 |l* size |make-vec|
|000054c0| 74 6f 72 20 6e 69 6c 20 | 69 74 73 3a 2a 6d 61 70 |tor nil |its:*map|
|000054d0| 73 2a 20 69 74 73 3a 2a | 61 63 74 69 6f 6e 73 2a |s* its:*|actions*|
|000054e0| 20 30 20 69 74 73 3a 2a | 69 6e 70 75 74 73 2a 5d | 0 its:*|inputs*]|
|000054f0| 20 33 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 3]).(de|falias '|
|00005500| 69 74 73 3a 72 65 73 65 | 74 2d 6d 61 70 73 20 23 |its:rese|t-maps #|
|00005510| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 69 6e 69 74 |[(&optio|nal init|
|00005520| 29 20 22 c0 11 5c 6e ad | 84 0b 09 5c 6e 49 87 22 |) "..\n.|...\nI."|
|00005530| 20 5b 30 20 69 74 73 3a | 2a 6c 65 76 65 6c 2a 20 | [0 its:|*level* |
|00005540| 69 6e 69 74 20 69 74 73 | 3a 2a 6d 61 70 73 2a 5d |init its|:*maps*]|
|00005550| 20 33 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 3]).(de|falias '|
|00005560| 69 74 73 3a 63 75 72 72 | 65 6e 74 2d 6d 61 70 20 |its:curr|ent-map |
|00005570| 23 5b 6e 69 6c 20 22 08 | 09 48 87 22 20 5b 69 74 |#[nil ".|.H." [it|
|00005580| 73 3a 2a 6d 61 70 73 2a | 20 69 74 73 3a 2a 6c 65 |s:*maps*| its:*le|
|00005590| 76 65 6c 2a 5d 20 32 5d | 29 0a 28 64 65 66 61 6c |vel*] 2]|).(defal|
|000055a0| 69 61 73 20 27 69 74 73 | 3a 70 72 65 76 69 6f 75 |ias 'its|:previou|
|000055b0| 73 2d 6d 61 70 20 23 5b | 6e 69 6c 20 22 08 c1 5c |s-map #[|nil "..\|
|000055c0| 6e 53 5d 48 87 22 20 5b | 69 74 73 3a 2a 6d 61 70 |nS]H." [|its:*map|
|000055d0| 73 2a 20 30 20 69 74 73 | 3a 2a 6c 65 76 65 6c 2a |s* 0 its|:*level*|
|000055e0| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|000055f0| 27 69 74 73 3a 6c 65 76 | 65 6c 20 23 5b 6e 69 6c |'its:lev|el #[nil|
|00005600| 20 22 08 87 22 20 5b 69 | 74 73 3a 2a 6c 65 76 65 | ".." [i|ts:*leve|
|00005610| 6c 2a 5d 20 31 5d 29 0a | 28 64 65 66 61 6c 69 61 |l*] 1]).|(defalia|
|00005620| 73 20 27 69 74 73 3a 65 | 6e 74 65 72 2d 6e 65 77 |s 'its:e|nter-new|
|00005630| 6c 65 76 65 6c 20 23 5b | 28 6d 61 70 20 63 68 20 |level #[|(map ch |
|00005640| 6f 75 74 70 75 74 29 20 | 22 08 54 10 09 08 5c 6e |output) |".T...\n|
|00005650| 49 88 0b 08 0c 49 88 0d | 08 1b 0e 06 49 87 22 20 |I....I..|....I." |
|00005660| 5b 69 74 73 3a 2a 6c 65 | 76 65 6c 2a 20 69 74 73 |[its:*le|vel* its|
|00005670| 3a 2a 6d 61 70 73 2a 20 | 6d 61 70 20 69 74 73 3a |:*maps* |map its:|
|00005680| 2a 69 6e 70 75 74 73 2a | 20 63 68 20 69 74 73 3a |*inputs*| ch its:|
|00005690| 2a 61 63 74 69 6f 6e 73 | 2a 20 6f 75 74 70 75 74 |*actions|* output|
|000056a0| 5d 20 33 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 3]).(b|yte-code|
|000056b0| 20 22 c0 c1 21 ac 82 c2 | 11 c1 0b 42 13 c0 c4 21 | "..!...|...B...!|
|000056c0| ac 82 c5 14 c4 0b 42 13 | c2 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|000056d0| 6e 64 70 20 69 74 73 3a | 2a 63 68 61 72 2d 66 72 |ndp its:|*char-fr|
|000056e0| 6f 6d 2d 62 75 66 66 2a | 20 6e 69 6c 20 63 75 72 |om-buff*| nil cur|
|000056f0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 69 |rent-loa|d-list i|
|00005700| 74 73 3a 2a 69 6e 74 65 | 72 61 63 74 69 76 65 2a |ts:*inte|ractive*|
|00005710| 20 74 5d 20 32 29 0a 28 | 64 65 66 61 6c 69 61 73 | t] 2).(|defalias|
|00005720| 20 27 69 74 73 3a 72 65 | 73 65 74 2d 69 6e 70 75 | 'its:re|set-inpu|
|00005730| 74 20 23 5b 6e 69 6c 20 | 22 c0 89 11 87 22 20 5b |t #[nil |"...." [|
|00005740| 6e 69 6c 20 69 74 73 3a | 2a 63 68 61 72 2d 66 72 |nil its:|*char-fr|
|00005750| 6f 6d 2d 62 75 66 66 2a | 5d 20 32 5d 29 0a 28 64 |om-buff*|] 2]).(d|
|00005760| 65 66 61 6c 69 61 73 20 | 27 69 74 73 3a 66 6c 75 |efalias |'its:flu|
|00005770| 73 68 2d 69 6e 70 75 74 | 2d 62 65 66 6f 72 65 2d |sh-input|-before-|
|00005780| 70 6f 69 6e 74 20 23 5b | 28 66 72 6f 6d 29 20 22 |point #[|(from) "|
|00005790| 8a 08 09 58 ad 8c c2 0b | 08 48 21 88 08 54 89 10 |...X....|.H!..T..|
|000057a0| aa 70 29 87 22 20 5b 66 | 72 6f 6d 20 69 74 73 3a |.p)." [f|rom its:|
|000057b0| 2a 6c 65 76 65 6c 2a 20 | 69 74 73 3a 69 6e 73 65 |*level* |its:inse|
|000057c0| 72 74 2d 63 68 61 72 20 | 69 74 73 3a 2a 69 6e 70 |rt-char |its:*inp|
|000057d0| 75 74 73 2a 5d 20 34 5d | 29 0a 28 64 65 66 61 6c |uts*] 4]|).(defal|
|000057e0| 69 61 73 20 27 69 74 73 | 3a 70 65 65 6b 2d 63 68 |ias 'its|:peek-ch|
|000057f0| 61 72 20 23 5b 6e 69 6c | 20 22 60 08 55 ab 91 09 |ar #[nil| "`.U...|
|00005800| ad 90 c2 20 89 1b 1b ad | 86 c4 0b 21 43 15 0b 29 |... ....|...!C..)|
|00005810| 87 60 66 87 22 20 5b 69 | 74 73 3a 2a 62 75 66 66 |.`f." [i|ts:*buff|
|00005820| 2d 65 2a 20 69 74 73 3a | 2a 69 6e 74 65 72 61 63 |-e* its:|*interac|
|00005830| 74 69 76 65 2a 20 65 67 | 67 2d 72 65 61 64 2d 65 |tive* eg|g-read-e|
|00005840| 76 65 6e 74 20 63 68 20 | 63 68 61 72 61 63 74 65 |vent ch |characte|
|00005850| 72 2d 74 6f 2d 65 76 65 | 6e 74 20 75 6e 72 65 61 |r-to-eve|nt unrea|
|00005860| 64 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 73 |d-comman|d-events|
|00005870| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|00005880| 27 69 74 73 3a 72 65 61 | 64 2d 63 68 61 72 20 23 |'its:rea|d-char #|
|00005890| 5b 6e 69 6c 20 22 60 08 | 55 ab 88 c1 12 0b ad 8e |[nil "`.|U.......|
|000058a0| c4 20 87 60 66 1d c6 12 | c7 c8 21 88 0d 29 87 22 |. .`f...|..!..)."|
|000058b0| 20 5b 69 74 73 3a 2a 62 | 75 66 66 2d 65 2a 20 6e | [its:*b|uff-e* n|
|000058c0| 69 6c 20 69 74 73 3a 2a | 63 68 61 72 2d 66 72 6f |il its:*|char-fro|
|000058d0| 6d 2d 62 75 66 66 2a 20 | 69 74 73 3a 2a 69 6e 74 |m-buff* |its:*int|
|000058e0| 65 72 61 63 74 69 76 65 | 2a 20 65 67 67 2d 72 65 |eractive|* egg-re|
|000058f0| 61 64 2d 65 76 65 6e 74 | 20 63 68 20 74 20 64 65 |ad-event| ch t de|
|00005900| 6c 65 74 65 2d 63 68 61 | 72 20 31 5d 20 32 5d 29 |lete-cha|r 1] 2])|
|00005910| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 74 73 3a |.(defali|as 'its:|
|00005920| 70 75 73 68 2d 63 68 61 | 72 20 23 5b 28 63 68 29 |push-cha|r #[(ch)|
|00005930| 20 22 08 ab 86 8a c1 5c | 6e 21 29 87 5c 6e ad 86 | ".....\|n!).\n..|
|00005940| c3 5c 6e 21 43 89 14 87 | 22 20 5b 69 74 73 3a 2a |.\n!C...|" [its:*|
|00005950| 63 68 61 72 2d 66 72 6f | 6d 2d 62 75 66 66 2a 20 |char-fro|m-buff* |
|00005960| 69 74 73 3a 69 6e 73 65 | 72 74 2d 63 68 61 72 20 |its:inse|rt-char |
|00005970| 63 68 20 63 68 61 72 61 | 63 74 65 72 2d 74 6f 2d |ch chara|cter-to-|
|00005980| 65 76 65 6e 74 20 75 6e | 72 65 61 64 2d 63 6f 6d |event un|read-com|
|00005990| 6d 61 6e 64 2d 65 76 65 | 6e 74 73 5d 20 32 5d 29 |mand-eve|nts] 2])|
|000059a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 74 73 3a |.(defali|as 'its:|
|000059b0| 69 6e 73 65 72 74 2d 63 | 68 61 72 20 23 5b 28 63 |insert-c|har #[(c|
|000059c0| 68 29 20 22 08 63 87 22 | 20 5b 63 68 5d 20 31 5d |h) ".c."| [ch] 1]|
|000059d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 74 73 |).(defal|ias 'its|
|000059e0| 3a 6f 72 64 69 6e 61 6c | 2d 63 68 61 72 70 20 23 |:ordinal|-charp #|
|000059f0| 5b 28 63 68 29 20 22 c0 | 09 21 ad 8d 09 c2 58 ad |[(ch) ".|.!....X.|
|00005a00| 88 c3 0c c5 09 21 5c 22 | c6 61 87 22 20 5b 63 68 |.....!\"|.a." [ch|
|00005a10| 61 72 61 63 74 65 72 70 | 20 63 68 20 31 32 37 20 |aracterp| ch 127 |
|00005a20| 6c 6f 6f 6b 75 70 2d 6b | 65 79 20 66 65 6e 63 65 |lookup-k|ey fence|
|00005a30| 2d 6d 6f 64 65 2d 6d 61 | 70 20 63 68 61 72 2d 74 |-mode-ma|p char-t|
|00005a40| 6f 2d 73 74 72 69 6e 67 | 20 66 65 6e 63 65 2d 73 |o-string| fence-s|
|00005a50| 65 6c 66 2d 69 6e 73 65 | 72 74 2d 63 6f 6d 6d 61 |elf-inse|rt-comma|
|00005a60| 6e 64 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |nd] 4]).|(defalia|
|00005a70| 73 20 27 69 74 73 3a 64 | 65 6c 65 74 65 2d 63 68 |s 'its:d|elete-ch|
|00005a80| 61 72 70 20 23 5b 28 63 | 68 29 20 22 c0 09 21 ad |arp #[(c|h) "..!.|
|00005a90| 8d 09 c2 58 ad 88 c3 0c | c5 09 21 5c 22 c6 61 87 |...X....|..!\".a.|
|00005aa0| 22 20 5b 63 68 61 72 61 | 63 74 65 72 70 20 63 68 |" [chara|cterp ch|
|00005ab0| 20 31 32 37 20 6c 6f 6f | 6b 75 70 2d 6b 65 79 20 | 127 loo|kup-key |
|00005ac0| 66 65 6e 63 65 2d 6d 6f | 64 65 2d 6d 61 70 20 63 |fence-mo|de-map c|
|00005ad0| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 20 66 65 |har-to-s|tring fe|
|00005ae0| 6e 63 65 2d 62 61 63 6b | 77 61 72 64 2d 64 65 6c |nce-back|ward-del|
|00005af0| 65 74 65 2d 63 68 61 72 | 5d 20 34 5d 29 0a 28 64 |ete-char|] 4]).(d|
|00005b00| 65 66 76 61 72 20 65 67 | 67 3a 66 65 6e 63 65 2d |efvar eg|g:fence-|
|00005b10| 62 75 66 66 65 72 20 6e | 69 6c 20 22 5c 0a 42 75 |buffer n|il "\.Bu|
|00005b20| 66 66 65 72 20 66 65 6e | 63 65 20 69 73 20 61 63 |ffer fen|ce is ac|
|00005b30| 74 69 76 65 20 69 6e 22 | 29 0a 28 64 65 66 61 6c |tive in"|).(defal|
|00005b40| 69 61 73 20 27 66 65 6e | 63 65 2d 73 65 6c 66 2d |ias 'fen|ce-self-|
|00005b50| 69 6e 73 65 72 74 2d 63 | 6f 6d 6d 61 6e 64 20 23 |insert-c|ommand #|
|00005b60| 5b 6e 69 6c 20 22 70 08 | 61 ad 9c c1 5c 6e 21 1b |[nil "p.|a...\n!.|
|00005b70| 1b 0c ab 87 c5 1b 0e 06 | 0b 5c 22 ac 84 0b 63 aa |........|.\"...c.|
|00005b80| 89 0b 63 88 c7 60 53 60 | c8 23 29 87 22 20 5b 65 |..c..`S`|.#)." [e|
|00005b90| 67 67 3a 66 65 6e 63 65 | 2d 62 75 66 66 65 72 20 |gg:fence|-buffer |
|00005ba0| 65 76 65 6e 74 2d 74 6f | 2d 63 68 61 72 61 63 74 |event-to|-charact|
|00005bb0| 65 72 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |er last-|command-|
|00005bc0| 65 76 65 6e 74 20 63 68 | 20 65 67 67 3a 2a 69 6e |event ch| egg:*in|
|00005bd0| 70 75 74 2d 6d 6f 64 65 | 2a 20 67 65 74 2d 6e 65 |put-mode|* get-ne|
|00005be0| 78 74 2d 6d 61 70 20 69 | 74 73 3a 2a 63 75 72 72 |xt-map i|ts:*curr|
|00005bf0| 65 6e 74 2d 6d 61 70 2a | 20 69 74 73 3a 74 72 61 |ent-map*| its:tra|
|00005c00| 6e 73 6c 61 74 65 2d 72 | 65 67 69 6f 6e 20 74 5d |nslate-r|egion t]|
|00005c10| 20 34 20 6e 69 6c 20 6e | 69 6c 5d 29 0a 28 64 65 | 4 nil n|il]).(de|
|00005c20| 66 61 6c 69 61 73 20 27 | 69 74 73 3a 61 6c 6c 2d |falias '|its:all-|
|00005c30| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 20 23 5b 28 73 |completi|ons #[(s|
|00005c40| 74 72 69 6e 67 20 61 6c | 69 73 74 20 26 6f 70 74 |tring al|ist &opt|
|00005c50| 69 6f 6e 61 6c 20 70 72 | 65 64 29 20 22 08 c1 1a |ional pr|ed) "...|
|00005c60| 1b 1b 0b ab ba 0b 40 89 | 1c 40 1d 0b 41 13 0d 3b |......@.|.@..A..;|
|00005c70| ab aa 1b 0e 06 47 0d 47 | 58 ab a2 1b 0e 06 0d c7 |.....G.G|X.......|
|00005c80| 1b 0e 06 47 4f 98 ab 97 | 1b 0e 08 ab 8b 1b 0e 08 |...GO...|........|
|00005c90| c9 61 ac 85 1b 0e 08 0c | 21 88 1b 0e 08 ac 84 0c |.a......|!.......|
|00005ca0| 5c 6e 42 12 2a aa 43 5c | 6e 9f 2a 87 22 20 5b 61 |\nB.*.C\|n.*." [a|
|00005cb0| 6c 69 73 74 20 6e 69 6c | 20 61 6c 6c 6d 61 74 63 |list nil| allmatc|
|00005cc0| 68 65 73 20 74 61 69 6c | 20 65 6c 74 20 65 6c 74 |hes tail| elt elt|
|00005cd0| 73 74 72 69 6e 67 20 73 | 74 72 69 6e 67 20 30 20 |string s|tring 0 |
|00005ce0| 70 72 65 64 20 63 6f 6d | 6d 61 6e 64 70 5d 20 35 |pred com|mandp] 5|
|00005cf0| 20 22 5c 0a 41 20 76 61 | 72 69 61 74 69 6f 6e 20 | "\.A va|riation |
|00005d00| 6f 66 20 61 6c 6c 2d 63 | 6f 6d 70 6c 65 74 69 6f |of all-c|ompletio|
|00005d10| 6e 73 2e 0a 41 72 67 75 | 6d 65 6e 74 73 20 61 72 |ns..Argu|ments ar|
|00005d20| 65 20 53 54 52 49 4e 47 | 2c 20 41 4c 49 53 54 20 |e STRING|, ALIST |
|00005d30| 61 6e 64 20 6f 70 74 69 | 6f 6e 61 6c 20 50 52 45 |and opti|onal PRE|
|00005d40| 44 2e 20 41 4c 49 53 54 | 20 6d 75 73 74 20 62 65 |D. ALIST| must be|
|00005d50| 20 6e 6f 20 6f 62 61 72 | 72 61 79 2e 22 5d 29 0a | no obar|ray."]).|
|00005d60| 28 64 65 66 61 6c 69 61 | 73 20 27 69 74 73 3a 74 |(defalia|s 'its:t|
|00005d70| 65 6d 70 2d 65 63 68 6f | 2d 61 72 65 61 2d 63 6f |emp-echo|-area-co|
|00005d80| 6e 74 65 6e 74 73 20 23 | 5b 28 6d 65 73 73 61 67 |ntents #|[(messag|
|00005d90| 65 29 20 22 08 64 19 18 | 09 62 88 5c 6e 63 88 09 |e) ".d..|.b.\nc..|
|00005da0| 62 88 c3 10 c4 c5 c6 5c | 22 88 60 64 7c 88 1b 0e |b......\|".`d|...|
|00005db0| 07 ad 8a c6 16 07 c8 c9 | 21 43 89 16 5c 6e 2a 87 |........|!C..\n*.|
|00005dc0| 22 20 5b 69 6e 68 69 62 | 69 74 2d 71 75 69 74 20 |" [inhib|it-quit |
|00005dd0| 70 6f 69 6e 74 2d 6d 61 | 78 20 6d 65 73 73 61 67 |point-ma|x messag|
|00005de0| 65 20 74 20 73 69 74 2d | 66 6f 72 20 32 20 6e 69 |e t sit-|for 2 ni|
|00005df0| 6c 20 71 75 69 74 2d 66 | 6c 61 67 20 63 68 61 72 |l quit-f|lag char|
|00005e00| 61 63 74 65 72 2d 74 6f | 2d 65 76 65 6e 74 20 3f |acter-to|-event ?|
|00005e10| 5c 5e 47 20 75 6e 72 65 | 61 64 2d 63 6f 6d 6d 61 |\^G unre|ad-comma|
|00005e20| 6e 64 2d 65 76 65 6e 74 | 73 5d 20 33 5d 29 0a 28 |nd-event|s] 3]).(|
|00005e30| 64 65 66 61 6c 69 61 73 | 20 27 63 61 72 2d 73 74 |defalias| 'car-st|
|00005e40| 72 69 6e 67 2d 6c 65 73 | 73 70 20 23 5b 28 69 74 |ring-les|sp #[(it|
|00005e50| 65 6d 31 20 69 74 65 6d | 32 29 20 22 08 40 09 40 |em1 item|2) ".@.@|
|00005e60| 99 87 22 20 5b 69 74 65 | 6d 31 20 69 74 65 6d 32 |.." [ite|m1 item2|
|00005e70| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00005e80| 27 69 74 73 3a 6d 69 6e | 69 62 75 66 66 65 72 2d |'its:min|ibuffer-|
|00005e90| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 68 65 6c 70 20 |completi|on-help |
|00005ea0| 23 5b 6e 69 6c 20 22 c0 | 19 c2 c3 21 88 c4 c5 20 |#[nil ".|...!... |
|00005eb0| 1b 0e 06 1b 0e 07 23 89 | 11 ac 89 c8 20 88 c9 ca |......#.|.... ...|
|00005ec0| 21 88 aa 8a cb 90 cc cd | 09 ce 5c 22 21 91 88 29 |!.......|..\"!..)|
|00005ed0| c0 87 22 20 5b 6e 69 6c | 20 63 6f 6d 70 6c 65 74 |.." [nil| complet|
|00005ee0| 69 6f 6e 73 20 6d 65 73 | 73 61 67 65 20 22 4d 61 |ions mes|sage "Ma|
|00005ef0| 6b 69 6e 67 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |king com|pletion |
|00005f00| 6c 69 73 74 2e 2e 2e 22 | 20 69 74 73 3a 61 6c 6c |list..."| its:all|
|00005f10| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 20 62 75 66 |-complet|ions buf|
|00005f20| 66 65 72 2d 73 74 72 69 | 6e 67 20 6d 69 6e 69 62 |fer-stri|ng minib|
|00005f30| 75 66 66 65 72 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |uffer-co|mpletion|
|00005f40| 2d 74 61 62 6c 65 20 6d | 69 6e 69 62 75 66 66 65 |-table m|inibuffe|
|00005f50| 72 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 70 72 65 |r-comple|tion-pre|
|00005f60| 64 69 63 61 74 65 20 62 | 65 65 70 20 69 74 73 3a |dicate b|eep its:|
|00005f70| 74 65 6d 70 2d 65 63 68 | 6f 2d 61 72 65 61 2d 63 |temp-ech|o-area-c|
|00005f80| 6f 6e 74 65 6e 74 73 20 | 22 20 5b 4e 6f 20 63 6f |ontents |" [No co|
|00005f90| 6d 70 6c 65 74 69 6f 6e | 73 5d 22 20 22 2a 43 6f |mpletion|s]" "*Co|
|00005fa0| 6d 70 6c 65 74 69 6f 6e | 73 2a 22 20 64 69 73 70 |mpletion|s*" disp|
|00005fb0| 6c 61 79 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 6c |lay-comp|letion-l|
|00005fc0| 69 73 74 20 73 6f 72 74 | 20 63 61 72 2d 73 74 72 |ist sort| car-str|
|00005fd0| 69 6e 67 2d 6c 65 73 73 | 70 5d 20 36 20 22 5c 0a |ing-less|p] 6 "\.|
|00005fe0| 44 69 73 70 6c 61 79 20 | 61 20 6c 69 73 74 20 6f |Display |a list o|
|00005ff0| 66 20 70 6f 73 73 69 62 | 6c 65 20 63 6f 6d 70 6c |f possib|le compl|
|00006000| 65 74 69 6f 6e 73 20 6f | 66 20 74 68 65 20 63 75 |etions o|f the cu|
|00006010| 72 72 65 6e 74 20 6d 69 | 6e 69 62 75 66 66 65 72 |rrent mi|nibuffer|
|00006020| 20 63 6f 6e 74 65 6e 74 | 73 2e 22 20 6e 69 6c 5d | content|s." nil]|
|00006030| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |).(byte-|code "..|
|00006040| 21 12 c2 0b 42 13 c4 5c | 6e c5 c6 23 88 c4 5c 6e |!...B..\|n..#..\n|
|00006050| c7 c6 23 88 c0 1b 0e 08 | 21 16 09 c9 0b 42 13 c4 |..#.....|!....B..|
|00006060| 1b 0e 09 c5 c6 23 88 c4 | 1b 0e 09 c7 c6 23 88 ca |.....#..|.....#..|
|00006070| cb 4b 4d 88 cc cd 4b 4d | 87 22 20 5b 63 6f 70 79 |.KM...KM|." [copy|
|00006080| 2d 6b 65 79 6d 61 70 20 | 6d 69 6e 69 62 75 66 66 |-keymap |minibuff|
|00006090| 65 72 2d 6c 6f 63 61 6c | 2d 63 6f 6d 70 6c 65 74 |er-local|-complet|
|000060a0| 69 6f 6e 2d 6d 61 70 20 | 69 74 73 3a 6d 69 6e 69 |ion-map |its:mini|
|000060b0| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 2d 63 6f 6d |buffer-l|ocal-com|
|000060c0| 70 6c 65 74 69 6f 6e 2d | 6d 61 70 20 63 75 72 72 |pletion-|map curr|
|000060d0| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 64 65 |ent-load|-list de|
|000060e0| 66 69 6e 65 2d 6b 65 79 | 20 22 3f 22 20 69 74 73 |fine-key| "?" its|
|000060f0| 3a 6d 69 6e 69 62 75 66 | 66 65 72 2d 63 6f 6d 70 |:minibuf|fer-comp|
|00006100| 6c 65 74 69 6f 6e 2d 68 | 65 6c 70 20 22 20 22 20 |letion-h|elp " " |
|00006110| 6d 69 6e 69 62 75 66 66 | 65 72 2d 6c 6f 63 61 6c |minibuff|er-local|
|00006120| 2d 6d 75 73 74 2d 6d 61 | 74 63 68 2d 6d 61 70 20 |-must-ma|tch-map |
|00006130| 69 74 73 3a 6d 69 6e 69 | 62 75 66 66 65 72 2d 6c |its:mini|buffer-l|
|00006140| 6f 63 61 6c 2d 6d 75 73 | 74 2d 6d 61 74 63 68 2d |ocal-mus|t-match-|
|00006150| 6d 61 70 20 73 69 3a 61 | 6c 6c 2d 63 6f 6d 70 6c |map si:a|ll-compl|
|00006160| 65 74 69 6f 6e 73 20 61 | 6c 6c 2d 63 6f 6d 70 6c |etions a|ll-compl|
|00006170| 65 74 69 6f 6e 73 20 73 | 69 3a 6d 69 6e 69 62 75 |etions s|i:minibu|
|00006180| 66 66 65 72 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |ffer-com|pletion-|
|00006190| 68 65 6c 70 20 6d 69 6e | 69 62 75 66 66 65 72 2d |help min|ibuffer-|
|000061a0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 68 65 6c 70 5d |completi|on-help]|
|000061b0| 20 34 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 | 4).(def|alias 'i|
|000061c0| 74 73 3a 63 6f 6d 70 6c | 65 74 69 6e 67 2d 72 65 |ts:compl|eting-re|
|000061d0| 61 64 20 23 5b 28 70 72 | 6f 6d 70 74 20 74 61 62 |ad #[(pr|ompt tab|
|000061e0| 6c 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 70 72 65 |le &opti|onal pre|
|000061f0| 64 69 63 61 74 65 20 72 | 65 71 75 69 72 65 2d 6d |dicate r|equire-m|
|00006200| 61 74 63 68 20 69 6e 69 | 74 69 61 6c 2d 69 6e 70 |atch ini|tial-inp|
|00006210| 75 74 29 20 22 08 09 c2 | 1b 1b 1c 1d c6 1b 0e 07 |ut) "...|........|
|00006220| 1b 0e 08 1b 0e 09 ca 1b | 0e 0b 25 2b 87 22 20 5b |........|..%+." [|
|00006230| 69 74 73 3a 6d 69 6e 69 | 62 75 66 66 65 72 2d 6c |its:mini|buffer-l|
|00006240| 6f 63 61 6c 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |ocal-com|pletion-|
|00006250| 6d 61 70 20 69 74 73 3a | 6d 69 6e 69 62 75 66 66 |map its:|minibuff|
|00006260| 65 72 2d 6c 6f 63 61 6c | 2d 6d 75 73 74 2d 6d 61 |er-local|-must-ma|
|00006270| 74 63 68 2d 6d 61 70 20 | 6e 69 6c 20 63 6f 6d 70 |tch-map |nil comp|
|00006280| 6c 65 74 69 6f 6e 2d 61 | 75 74 6f 2d 68 65 6c 70 |letion-a|uto-help|
|00006290| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 6c 6f 63 61 | minibuf|fer-loca|
|000062a0| 6c 2d 6d 75 73 74 2d 6d | 61 74 63 68 2d 6d 61 70 |l-must-m|atch-map|
|000062b0| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 6c 6f 63 61 | minibuf|fer-loca|
|000062c0| 6c 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 6d 61 70 |l-comple|tion-map|
|000062d0| 20 63 6f 6d 70 6c 65 74 | 69 6e 67 2d 72 65 61 64 | complet|ing-read|
|000062e0| 20 70 72 6f 6d 70 74 20 | 74 61 62 6c 65 20 70 72 | prompt |table pr|
|000062f0| 65 64 69 63 61 74 65 20 | 74 20 69 6e 69 74 69 61 |edicate |t initia|
|00006300| 6c 2d 69 6e 70 75 74 5d | 20 36 20 22 5c 0a 53 65 |l-input]| 6 "\.Se|
|00006310| 65 20 63 6f 6d 70 6c 65 | 74 69 6e 67 2d 72 65 61 |e comple|ting-rea|
|00006320| 64 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |d"]).(by|te-code |
|00006330| 22 c0 c1 21 ac 82 c2 11 | c1 0b 42 13 c0 87 22 20 |"..!....|..B..." |
|00006340| 5b 62 6f 75 6e 64 70 20 | 69 74 73 3a 2a 63 6f 6d |[boundp |its:*com|
|00006350| 70 6c 65 74 69 6e 67 2d | 69 6e 70 75 74 2d 6d 65 |pleting-|input-me|
|00006360| 6e 75 2a 20 28 6d 65 6e | 75 20 22 57 68 69 63 68 |nu* (men|u "Which|
|00006370| 3f 22 20 6e 69 6c 29 20 | 63 75 72 72 65 6e 74 2d |?" nil) |current-|
|00006380| 6c 6f 61 64 2d 6c 69 73 | 74 5d 20 32 29 0a 28 64 |load-lis|t] 2).(d|
|00006390| 65 66 61 6c 69 61 73 20 | 27 69 74 73 3a 63 6f 6d |efalias |'its:com|
|000063a0| 70 6c 65 74 69 6e 67 2d | 69 6e 70 75 74 20 23 5b |pleting-|input #[|
|000063b0| 28 6d 61 70 29 20 22 c0 | 09 21 89 1a ac 91 c3 09 |(map) ".|.!......|
|000063c0| 21 47 c4 55 ab 89 c5 c3 | 09 21 40 41 21 aa 99 1b |!G.U....|.!@A!...|
|000063d0| 0e 06 41 41 c3 09 21 a0 | 88 c7 1b 0e 06 c8 c9 23 |..AA..!.|.......#|
|000063e0| 89 1e 5c 6e 3a ae 83 c5 | 09 21 29 29 87 22 20 5b |..\n:...|.!))." [|
|000063f0| 67 65 74 2d 61 63 74 69 | 6f 6e 20 6d 61 70 20 61 |get-acti|on map a|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
